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CRAY-1 OPERATING SYSTEM (COS) 



MULTIPROGRAMMING OF USER APPLICATIONS 



SCHEDULING OF APPLICATIONS BY PRIORITY (JOB CLASS) 
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COS SOFTWARE ELEMENTS 
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SYSTEM TASK PROCESSOR (STP) 

CONTROL STATEMENT PROCESSOR (CSP) - OPTIONAL 
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SYSTEM EXECUTIVE 



SYSTEM EXECUTIVE PROGRAM (EXEC) 



• CONTROL CENTER FOR COS 

• EXECUTES IN MONITOR MODE 

• CAN ACCESS ALL OF MEMORY (BA-O.LA-I8MEM) 
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SYSTEM EXECUTIVE PROGRAM (EXEC) 
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FUNCTIONS OF EXEC 



INTERCHANGE ANALYSIS 



INTERRUPT HANDLERS 



CHANNEL MANAGEMENT 



TASK SCHEDULER 



EXECUTIVE REQUEST PROCESSOR 



DISK DRIVER 



FRONT-END DRIVER 
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SYSTEM EXECUTIVE PROGRAM (EXEC) 
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INTERCHANGE 

SAVES CURRENT RTC 

UPDATES ACCRUED CPU TIME 

CALLS I/O HANDLER IF I/O INTERRUPT 

SENSES FOR LOST HARDWARE INTERRUPTS OF PREVIOUS DISK I/O INSTRUCTIONS 

CALLS INTERRUPT HANDLERS FOR: 

CONSOLE SXa V'UfYujs-f 

REAL TIME CLOCK * 

ERROR EXIT 

NORMAL EXIT 

MEMORY ERROR EXIT 
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SYSTEM EXECUTIVE PROGRAM (EXEC) 



© CONTROL CENTER FOR COS 

• EXECUTES IN MONITOR MODE 

• CAN ACCESS ALL OF MEMORY 
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INTERRUPT HANDLERS 






EXECUTE ONE OF THE FOLLOWING INTERRUPT HANDLERS: 

IOI I/O INTERRUPT HANDLER 

CI I Console interrupt handler 

RTI Real-time interrupt handler 

NEI Normal exit interrupt handler 

EElf\ Error exit interrupt handler 

MET' Memory error interrupt handler x p ^ 

CLEAR THE INTERRUPT FLAG IN THE EXCHANGE 
PACKAGE OF THE INTERRUPTED PROGRAM 

DETERMINE THE CHANNEL ON WHICH THE INTERRUPT 
OCCURED 

BRANCH TO THE APPROPRIATE CHANNEL PROCESSOR 
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SYSTEM EXECUTIVE PROGRAM (EXEC) 
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CHANNEL PROCESSORS 



• 
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CHANNEL PAIRS ARE ASSIGNED NUMBERS AS FOLLOWS: 
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NORMAL EXIT PSEUDO CHANNEL 
ERROR EXIT PSEUDO CHANNEL 
PROGRAMMABLE CLOCK PSEUDO CHANNEL 
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y i 



/ rt 



CHANNEL PROCESSOR TABLE (CHT) HAS ENTRIES FOR BOTH THE 
INPUT AND OUTPUT SIDES OF EACH CHANNEL 

CHT POINTS TO THE INTERRUPT PROCESSOR 

CHT POINTS TO A PARAMETER AREA FOR EACH CHANNEL 
PROCESSOR 

CHT POINTS TO CONTROL TABLE ADDRESS 
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CHANNEL TABLE - CHT 



The Channel Table resides in EXEC memory and contains information for use 
by the interrupt handlers. There is one entry for each channel, physical 
or pseudo. 
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Bits Description 
0-23 Table name; "CHT" in ASCII 
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Bits Description 

0-15 Address of task parameter word 

16-39 Control table address 

40-63 Interrupt handler address 
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TASK REQUESTS 

• THE EXECUTIVE REQUEST PROCESSOR IS INITIATED BY THE NORMAL 
EXIT CHANNEL PROCESSOR. 

9 THE REQUEST IS PASSED TO EXEC IN REGISTERS S5 AND S7 

• EXECUTIVE REQUESTS ARE: 

CREATE A TASK 

READY A TASK 

SELF SUSPEND TASK 

ASSIGN CHANNEL 

STATION I/O REQUEST 

DISK BLOCK I/O REQUEST 

READY TASK AND SUSPEND SELF 

GET TIME AND DATE 

CONNECT USER JOB TO CPU 

DISCONNECT USER JOB FROM CPU 

POST A MESSAGE IN HISTORY BUFFER 

SET MEMORY SIZE 

START/STOP OPERATING SYSTEM 

DISPLAY MEMORY/EXCHANGE PACKAGE 

ENTER MEMORY/EXCHANGE PACKAGE 

SET/CLEAR SYSTEM BREAKPOINT 
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SYSTEM EXECUTIVE PROGRAM (EXEC) 
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EXEC HISTORY TRACE 



• CIRCULAR BUFFER BEGINS AT LOCATION DEE 

• LOCATION DBEE POINTS TO NEXT BUFFER ADDRESS 

• EACH TRACE MESSAGE H WORDS IN LENGTH 

• CIRCULAR BUFFER HOLDS THE 1024 MOST CURRENT MESSAGES. 

• FUNCTIONS MAY BE COLLECTIVELY ENABLED/DISABLEB 

THROUGH SETTING OF LOCATION DBUGM AND ITS ASSOCIATED FUNCTION TABLE. 

• SETTING LOCATION DBUGM NONZERO ENABLES ALL FUNCTIONS 

• SETTING DBUGM+FUNCTION NUMBER ENABLES THE FUNCTION 



0405142300000000686001! 

0525i'62iJ3D0000Geeee90& 

0S1S03S3S4S00000C00®©® 
0421.1 123S5ie0t»'>00000e* 
©44524<i32Si40€eeO0e00^- 
04253S2Z;30i0e00«dOe«0000- 

17 



* 


HISTORY! 




* 


BU-rLH hUNLi'iUN FL 


* 






DBUGM 


COM 


'AUL'L+I 




CON 


M'OI'L 




CON 


'UNE'L 




CON 


'SNE'L 




CON 


'ENE'L 




CON 


'RTI'L 




CON 


'XFC'L 




CON 


'MCU'L 




CON 


'SCHJ'L 




CON 


'DIOR'L 




CON 


'ITMS'L 




CON 


'EEI'L. 




BSSZ 


DBIJGM«)BUGN-U 


XCHG3P 


CON 


9> 


DBFP 


CON 






UNIVERSAL ENABLE R_AG 
I/O INTERRUPT 
USER NORMAL EXIT 
STP NORMAL EXIT 
EXEC NORMAL EXIT 
REAL. TIME INTERRUPT 
COPY USER XP TO JTA 
MCU COMMAND 
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INTER-TASK MESSAGE 
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01 0251 2D 


02060 


00 1 


EHE 


005060GD 


01 0251 2D 


02060 


005 


RTI 


0051004A 


O1021G5C 


02060 


003 


she 


0051 004 R 


01021G5C 


020GO 


012 


ITM 


0051004A 


O102165C 


02060 


004 


El IE 


0051004C 


01021G5C 


0206*3 


005 


RTI 


0(35100)56 


0102165C 


O2060 


003 


SHE 


0051005C 


01O2165C 


02060 


004 


ENE 


0051006A 


01021G5C 


0206O 


005 


RTI 


0103051A 


O101G7GA 


02060 


ro 003 


SHE 


01 03051 A 


0101676m 


02060 


k> OH 


DQM 


01 03051 A 


2G4G214A 


02060 


^ 001 


I '0 


01 033*35 1C 


o3?t; 7 G0m 


02060 


001 


I/O 


0103O51C 


03777G0A 


O206O 


004 


EHE 


0103051C 


0101676m 


02060 


001 


I - 


0103051C 


0377V6OA 


O2060 


0(1 t 


I/O 


0103O51C 


03777G0H 


02060 


001 


I /o 


0103051C 


(3377760M 


02060 


00', 


RTI 


01O3051C 


03777GO^ 


02060 


004 


EHE 


0103051C 


0101676m 


02060 


005 


RTI 


0101636B 


01O167GA 


0206O 


003 


SHE 


010163GB 


0101G7GA 


02060 


004 


EHE 


00744 42D 


0074450B 


02100 


001 


I /o 


OO50>437C 


0377760m 


02100 


005 


RTI 


0050437C 


O3777G0A 


02100 


004 


EHE 


00504 37C 


005O335B 


02100 


005 


RTI 


0O5O4 12A 


0075 103B 


02100 


013 


ERR 


0050412m 


0075 103B 


021CK3 



INTERVAL 

0O0000013000623 

0000000(300 1 554 

00000000000753 

000000000O L 632 

000000000042 J 

00000000000753 
000(30000000250 

000000000O0G7 3 

000(3(3000003561 

000(3000(3000753 

000(3000(3000250 
00(X3000O0(30623 
00O000CK3O007 33 

0(30000000(30 7 53 
0000000(300 1 6 30 

000000000034^ 30 

00013(300(3000753 
00000000000366 

0000000(300 1715 
000000000007 1 4 

0000(300(300 1 1 2 

00000000000^0 7 
00000000000774 
0000000(3001156 

000000000006' t 

000(3000(300074 7 

00000000001120 
0000000000 1010 
000000000O 1414 
00000000)0060 1 
00000000000753 
0000000000074 7 

0000000(3004 246 

00000000000670 



000000000000000000 1 650 

000000(300(300(3(3000(3 1 650 

0000000000000000000006 
00000(3000(3000000(3(3 1 650 
00000(3000000000000 1 650 
00000(30202020200000?04 

1 OOO00OO0 1 050(3(30 1 04 075 

000000000000000000 1 650 
000000000000000000 1 £50 

0400030000000*300000000 
04 00000000000000000007 
00eM3000000000(30000 1 65<3 
0(30000000000000000 1 650 
0000000000000000000006 
000000000000000000 1 650 
0000000000000(30000 1 650 

000(30000301074000453 10 
000002(3207040000323200 
000005000023030006^656 
000005000023O 3000*36274 

0000000000000(30000 1 650 

0000040000230300066325 
000(3050000230 300067755 
0000050000230300070337 
0i3000O0(3000000(3000 1 650 

0O00000000000O0000 1 650 
00000(30000000*30000 1 650 
0000000000000000000005 
000000000000000000 1 657 
000001 O00O2 30300070370 
000000000O00000000 1 657 

000000)000(300(3*3000(3 1 657 

000000000000000000 1 657 

05 1 5242500000*300000000 



WORDS 2 AND 3 

OO 1 300 I 26500O77777 1 500 
OO 1 3O0 1 2650O077777 1 500 

0)00000000000000000(3002 

O01 300 1 26S0O077777 1 500 
00 1 300 1 2650007777? 1 500 
000000*300000000 121 2020 
000000O0000000OH3000000 

00 1 300 1 26500077777 J 500 
OO 1 300 1 2650O077777 1 500 
0(30000*30000)0000) 121 20)20 @ 
00*3734 75200540(301004424 ® 
O01 30O1 2650O0777771 500 
00 1 3O0 1 2650OO777771 500 

0000000000(300000000002 

0)0 1 300 1 2650(3077777 1 5*30 
OO 1 3O0 1 26500O77777 1 500 
(30)0(3(300(3(354 2620000)20 1 1 
000000(30)0542620000201 1 

0100000000*300010777??? 

0) 1 0O00*3O'(3OOiO)0O>4 0777777 
00 1 300 1 2650O077777 1 500 
0) 1 00(300O>0OH3(3004C)??7777 
1 000Ox)O0Ox3O>OH34O>02C»??7 
1 0OOOK 30)00(30004 002077? 
0)0 1 3O0 1 265000T7777 1 500 
00 1 300 1 265OO5077777 1 500 
001 30)01 2650(30777771 50*3 
00*30000)00(300)0)0x30)0000)03 
001 3O0 1 265000777771 500 

1 0000X3000000040020777 

O0 1 300 1 26500)077777 1 500 
00 1 300 1 265O0077777 1 50*3 
001 3001 2650(3077777 1 500 
000002000030(3030*300000*30 STT 
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DISK DRIVER (R011) 

• DOES THE PHYSICAL I/O ON DISKS 

• REQUESTS TO ROll QUEUED VIA THE REQUEST TABLE (RQT) 

• UPDATES THE DATASET PARAMETER TABLE (DSP) 

• EXAMINES THE DISK RESERVATION TABLE (DRT) 
FOR USEABLE DISK SPACE 

• PERFORMS SERVO OFFSET AND DATA STROBE FUNCTIONS 
FOR ERROR RECOVERY 
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COMMON SUBROUTINES 



SYSTEM TASK PROCESSOR 



DEFINITION - CONSISTS OF TABLES, COMMON SUBROUTINES, TASKS, 
AMD I/O ROUTINES. 

COMMON SUBROUTINES 

RE-ENTRANT ROUTINES 
USED BY TASKS 



• TASKS 



TABLES 



PERFORMS A SPECIFIC OPERATION 

CAN BE CALLED BY OTHER TASKS 

HAVE THEIR OWN XP's 

HAVE THEIR OWN ID NUMBERS (0-35 g ) . 

HAVE THEIR OWN PRIORITIES (0-377g). 

BA AND LA THE SAME FOR ALL TASKS (BA=BaSTP, 

LA-I8MEM) 
COMMUNICATE WITH EXEC, EACH OTHER AND WITH 
USER UOBS. 



USED BY STP AND EXEC 



7 i 



STP COMMON ROUTINES 
USED BY TASKS TO PERFORM: 

TASK LOGICAL INPUT/OUTPUT (TIO) 
CIRCULAR INPUT/OUTPUT (CIO) 
MEMORY MANAGEMENT 
ITEM CHAINING/UNCHAINING 
TASK TO TASK COMMUNICATION 



iH 



s~ 



■ f I 

y * ■■ ■. •-■/■. 









3.3 



Asynchronous I/O 



Synchronous I/O 



CFT SUFFERED I/O 
STATEMENTS 



8UFFER IN 
8UFFER OUT 



CAL BUFFERED 
I/O MACROS 



BUFIN BUFOUT BUFEOF 

BUFINP BUFOUTP BUFEOO 

BUF CHECK 



CFT FORMATTED/ 
UNFORMATTED STATEMENTS 



REAO 
PRINT 



PUNCH 
WRITE 



user 
interface 



CAL UNBLOCKED 
I/O MACROS 



REAOU 
WRITEU 



BUFFERED I/O 



$R8 
SU8 



CAL BUFFERED I/O 
INTERFACE 



JC8I0 



CAL 8LOCKEO I/O MACROS 



REAO WR ITE 

REAOP "WRITE"?' 

REAOC WRITEC 

REAOCP WRITECP 



WRITEF 

WRITEO 

BKSP 

BKSPF 

GETPOS 

SETPOS 

REWIND 



SRFI $WFI $RUI JWUI 

SRFA $WFA $RUA JUUA 

JRFV SUFV $RUV JUUV 

$RFF SWFF $RUF JWUF 




library 
routines- 



LCGICAL RECORD I/O 



JRWOR JWWOR JWEOF SGPOS 

JRWOP JWWOP SWEOO JSPOS 

JRCHR SWCHR JREWO 

JRCHP JWCHP JBKSP 

SWWOS J8KSPF 



FSB 10 



USER 



no 



SRWOR JWWDR SWEOF 

SRWOP JWWOP JWEOO 

JWWOS JREWD 




////I \\\ 

Disk Controller functions 



EXEC 



Overview of COS I/O 
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TASK LOGICAL I/O (TIO) 



ALLOWS A SYSTEM PROGRAMMER TO DO LOGICAL I/O AT THE TASK 
LEVEL . 

TIO ROUTINES ARE: 

SRWDP/SRWDR-READ WORDS PARTIAL/FULL RECORD 

$WWDP/$WWDR-WRITE WORDS PARTIAL/FULL RECORD 

$WEOF- WRITE END OF FILE 

$WEOD-WRITE END OF DATA 

SREWD-REWIND A DATASET 

$WWDS-WRITE WORDS—UNUSED BIT COUNT 

TASKS CALL TIO BY PLACING REQUIRED PARAMETERS IN 'A' 
REGISTERS AND EXECUTING A RETURN JUMP TO THE ROUTINE. 

1 TIO ROUTINE ($WWDP/$WWDR) WILL BE EXAMINED HERE, REFER 
TO SMOMO FOR REMAINDER OF TIO ROUTINES. 
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TASK I/O 
PHYSICAL I/O 



mass 
storage 



TIO logical write 
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$WWDP/$WWDR WRITES THE NUMBER OF WORDS SPECIFIED INTO 
THE I/O BUFFER. $WWD IS CALLED VIA A RETURN JUMP WITH 
THE CALLER PROVIDING THE FOLLOWING: 



ENTRY CONDITIONS: (Al) 

(A2) 
(A3) 

(A6) 
(A7) 



RETURN CONDITIONS: (AO) 



Address of DSP 

FWA of task's data area 

Word count 

If count is 0, no data is transferred 

Address of DNT 

Address of JXT 

(=0 if not job related) 

Status 

<0 TIO error 

=0 Logical I/O complete 
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m. 



FIND THE 
EOR 



WRITE 
EOR 



YES 



INSERT 
END RECORD 
WORD 



AT 
512 
.WORDS 



NO 



UPDATE 
DATASET 
PARAMETER 
AREA 



NO 




ND 




C $WWD J 



TJA< 
PRECEDIN( 
A WRJTE 



$WBLK 



( EXIT ) 




MOVE 
WORDS 
INTO 
BUFFER 



MORE 
WORDS 



YES 



YES 



$WBLK 
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C $WBLK J 

i 



INSERT BCW 




NO 



UPDATE 
DATASET 
PARAMETER 
AREA 



WRITE 
DATA TO 
DISK (WDCS) 



C exit ) 



STP 




CAL 


1.03 73232 10V08/7S 


TASK INPUT/OUTPUT 






* 


WRTTE WOKiW 






X 


ENTRY: 






X 




Al @FC3 




* 




A2 FWA- 




X 




A3 COUNT 




* 




AS DNT ADDRESS 


* 




A7 JXT ADDRESS, =0 IF NOT JOB RELATED 


X 


EXIT: 






X 




Al OFCB 




* 




A2 FWA 




* 




A3 COUNT 




* 




AS DNT ADDRESS 


X 




A7 JXT ADDRESS 


X 


MODIFIES^ 






X 




A0,4,5 S0.1 


,2,3.4,5,6,7 


X 




DPTM WORDS IN ! 


DSP 


X 


WRITE WORDS, 


PARTIAL MODE 




SWUDF 


> — 


X 






S6 









J 


WW0i 




X 


WRITE WORDS, 


RECORD MODE 




SUWDR = 


X 






S6 


>1 




WU01 


= 


* 






SI 


AS 


DNT ADDRESS 




sz 


A7 


JXT ADDRESS 




SI 


SKD'24 






SI 


31!S2 






W*?D°TM+5,A1 SI 




WU02 


= 


IK 






A7 


B0 






SI 


A7 


B.ZA 




S2 


A2 


B.ZB 




SI 


SKD'24 






SI 


S1!S2 






WiSDPTM+2. 


-Al SI 






R 


TDSP 


CALCULATE A7 = DSP BASE 




S4 


5,A1 


PW 




S3 


2,A1 


IN 




AO 


34 






S2 


<30 






JAN 


WW03 


NOT FIRST WRITE 




S4 


S3JS4&S2 


SET PCWA 




S2 


<1 






A4 


S3 






S3 


S3+S2 


IN + 1 




S2 


1S4 






S2 


S2<71 






A4 


A4+A7 






0,A4 


AS 


CLEAR FIRST BCW 




A4 


A4-A7 






S4 


S2 ! S4 


INSERT RFW BITS 


WW03 


= 


X 






sa 


S4<4. 






S2 


>4 






JSM 


WW04 


PRECEDING WRITE 




R 


112-30 


PROCESS WRITE AFTER READ 




JAN 


WW22 


ERROR 



PAGE 435 



S.1S41S 
S. 16413 

5 . 16420 

5. 16421 

5. 16422 

5. 16423 
S . 164-24 
S.1S42S 

5. 16426 

5 . 16427 
S . 16*28 
S. 16423 

5. 16430 

5. 16431 

5. 16432 

5. 16433 

5 . 16434 
S.1S4.3S 
S.1C43S 
S . 16437 
S . 1S438 
S. 16433 

5. 16440 

5 . 16441 

5. 16442 
S . '43 
S . . *44 

5 . 16445 

5 . 16446 

5 . 16447 
S . 16443- 

5. 16443 

5 . 16450 

5. 16451 

5. 16452 
164S3 
16454 
16455 
16456 
1645S 
16459 
16460 

S . 16«i6i 

5 . 16462 

5 . 16463 

5 . 16464 

5 . 16465 
S. 16466 
S.. 16467 

5 . 16453 

5 . 16469 

5 . 16470 

5 . 16471 
S . 1 S472 
S -73 
S . 1&474. 

3 . 16475 

5 . 16476 
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UW04. 



UWOS 



UW10 



UWli 



UW14 



JW15 



R 


TDSP 


CALCULATE A7 -= DSP BASE ADDRESS 


-= 


% 




SI 


1.A1 


FIRST 


so 


S4 




S4 


SG ! S42.S2 


CLEAR RFD BITS 


sz 







JSP 


U'aJOS 


NOT BOR 


SO 


S0<2 




S2 


<17 




JSP 


WU05 


"NOT BOP" 


SO 


S0<1 




S2 


<43 




JSM 


UW39 


WRITE. AFTER EOD 


= 


* 




S2 


S2<30 




A3 


A2+A3 


LWA + 1 


S4 


*S2&S4 


CONDITIONAL CLEAR BFl, BR! 


SI 


S1-S3 


F - I 


S2 


<11 




A4 


S3 


I 


SI 


S23tSl 




SI 


S3+S1 




AE5 


SI 


NCJA 


USDPTM, 


Al ?A 


T.ZA 


= 


% 




37 


USDPDIO.A1 




S6 


Al 




Al 


A2-A3 




A6 


A4-AG 




SI 


Al 




A0 


Al-AS 




S2 


<S 




Al 


SS 




JAP 


UM11 


COUNT FIRST 


SI 


AS 




= 


* 




S0 


SI 




S2 


SS1&S2 




A6 


S2 




AG 


AS+i 


FIRST SEGMENT LENGTH 


A7 


A4+A7 




JSZ 


UUI1S 


ZERO LENGTH 


S0 


S7 




ERRIF 


SSDPBIO,NS,0 




JSM 


UWVMV 


USE VECTOR MOVE IF BUFFERED UC 


S0 


0,A2 




TI 


* 




AS 


AS-1 




A2 


A2+1 




A0 


AS-1 


DONE? 


A7 


A7+1 




A4 


A4+1 




-1,A7 


S0 




S0 


0,A2 




JAP 


UU14 


NO 


AS 


D'S4 
A4-A5 


MOVE IN 64 WORD CHUNKS 


A0 




JAM 


LM16 


NOT AT BCW 


A7 


C\7-4& 




R 


5:,JBLK 


PROCESS BCJ 


JAN 


U ; .J22 


ERROR 


J 


WW10 





S . 16^77 






C 1 £T, - 7<? 



16*1" 

102 

1&173 

1&-20 

16-31 

16^32 

16*34 

1&135 

16^36 

16&37 

1S433 

16-133 

16420 

l&i31 

1S--32 

J&iy3 

16^34 

16-35 

1&1'^6 

16-37 

16w3S 

16-139 

1G5O0 

16=01 

16=52 

16503 

16504 

1650S 

16506 

16507 

16503 

16603 

16510 

, 16511 

.16512 

.16S13 

. 16314 

. 16515 

. 165-16 

.16517 

.16313 

.1PG19 

.16520 

. 16521 

16522 

.16523 

. 16524 

. 16525 

. Ib526 

. 16527 

S. 16523 

S . 16523 

5. 16530 

5 . 16531 

5 . 16532 

5. 16533 

5 . 16534 

5 . 1 6535 

5 . 16536 

5 . 16537 
•c » ;c"?o 
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JU21 



LJU39 



'.JVJ22 



LU99 



A0 


A2-A3 




SO 


0,A2 




JAM 


UUML4 


NOT P,T EOC 


A7 


A7-A4 




SO 


WSDPTM.A1 


T . 7A 


END OF COUNT 






34 


U3DPTM,A1 


PU CT.ZA) 


JSP 


LW21 


PARTIAL MODE 


RECORD MODE 






SI 


UK?DPTM,A1 


T.ZA 


52 


<43 




SI 


Sl>17 




S2 


S2<11 




A6 


S4 


« PCU 


SI 


S2&S1 


BFI, BRI 


S2 


>4 




SI 


S4 i S1&S2 


INSERT MODE BITS 


A7 


A7+A4 




0,A7 


SI 


STORE RCUI 


A7 


A7-A4 




A7 


A7+A6 




se 


0,A7 


PCU 


A2 


A6+1 




SI 


A4 




A2 


A4-A2 


FWI 


S2 


<30 




S4 


SI ! S4&S2 


UPDATE PCLJA 


A4 


A4+1 




SI 


AS 




AO 


A4-AS 




S6 


SS!S1 


INSERT FUJI 


0,A7 


S6 




A7 


A7-A6 




JAM 


WW21 


NOT AT BCU 


R 


WB01 


WRITE BLOCK 


JAN 


UJW22 


ERROR 


PARTIAL MODE 






= 


* 




SI 


A4 




5,A1 


S4 


UPDATE PU 


S2 


<30 




S3 


S1SS3&S2 


INSERT NUA 


S2 


<60 




33 


S2StS3 


CLEAR BP 


2,A1 


S3 


UPDATE- IN 


A2 


W3DPTM+-2.A1 


3 . ZB 


A3 


A3-A2 


CO'JNT 


AO 


O 


COMPLETE R-AG 


J 






SI 


'TV 

WSDPERR,A1 




S3 


>1 




S3 


S3>S®DPERy 


WRITE PAST EOD 


SI 


SI! S3 


SET ERROR FLAG 


W3D°ERR,A1 SI 

= -V 




SI 


UI@DPTM+2,A1 




St 


S1>D'24 




SI 


43^,24/BO 




Al 


DSP ADDRESS 




= 


X 




A7 


SI 




BO 


A7 




SI 


U9DPTM+5,A1 




A7 


31 


JX^ ADDRESS 


SI 


S1>D'24 




A6 


SI 


DNT ADDRESS 


J 


BO 
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s. 
s. 
s. 

c 

s. 

s 

s. 

s 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

s. 

&. 

s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s. 
s 
s. 
s. 
s. 
s. 
s. 
s. 
s. 



s. 

S002. 

s. 



SO02. 

S0O2 . 

S002. 

s . 



s. 



* 

X 

X 


WWVMV 


VECTOR MOVE 


FOR WRITE RECORD 


A2 




SOURCE ADORE 


,z>S 


X. 


A4 




OUT 






X 


A7 




DEXTINATI 


:on 


ADDRESS 


% 


A6 




SHORT VECTOR 


! LENGTH CNOT ZERO) 


X 


SI 




NEGATIVE 


NUMBER OF WORDS TO BE MOVED 


UJWVMV 


ic 




A3 




SAVE A3 




A'3 




8 I OV0SV 




V0 SAVfc. AREA FOR BUFFERED I/O 




A3 




ZSO 




D'S4 




VL 




A3 








,A0, 


1 


V0 




SAVE V0 




A3 




SI 








A3 




-A3 








A4 




A4+A3 




INCREMENT OUT 


WUVMV1 


A0 




A? 




SOURCE ADDRESS 




VL 




AS 








V0 




.A0,1 








A0 




A7 




DESTINATION ADDRESS 




A3 




A3-A6 




WORDS LEFT TO WE 




A2 




A2+A6 








A7 




A7+A6 








A6 




ZSO 




D'S4 




,A0, 




V0 








A£ 




-A3 








JAM 




UWVMV1 




LOOP UNTIL ALL WORDS MOVED 




VL 




A3 








A3 




BIOV0SV 








V0 




,A0, 1 




RESTORE V0 




A3 




S2 




RESTORE A3 




J 




WU.I15 







XX 

X NAME TDSP 

* CALCULATE DSP POINTER BASE 

* = IF JXT ADDRESS =0 

* = JTA ADDRESS IF DNJTF =1 

* = USER BA IF DNJTF =0 
X ENTRY TDSP: 

DSP ADDRESS 



* 
X 
X 
X 
X 
X EXIT 

X 

X 
X 



Al 

TDSP1 
S7 

Ai 
A7 



15/0,24/DNT ADDRESS, 24/ JXT ADDRESS 

DSP ADDRESS (TDSP ENTRY ONLY) 
BASE OF DSP POINTERS 



REGISTERS MODIFIED - 

A0,A7 S0,S7 



XXXXXXXX&XXXttXXXXXX K)&X%X%X :CCfc.**^,**:fc!C|cfc|^ 



TDSP 
TDSP1 



TDSPS 
TDSP9 
TDSP-i 



A0 

A7 

JAZ 

A7 

A7 

37 

TDSRA,0 

A6 

S0 

SO 

A6 

JSM 

A7 

A6 

J 

CON 



W3DPTM+5,A1 
S7 



TDSPS 

S7 

U3JXJTA, A7 

S7>D'2't 

A3 

S7 

W3DNJTF,AS 

S5KSSDNJTF 

L3JTA 

TDSPS 

AS+A7 

TDSFA,0 

BO 





ENTRY W S7 - JXT ADDRESS 
JXT ADDRESS 

NOT .JOB RELATED 
JXT ADDRESS 
JTA ADDRESS 

SAVE AG 
DNT ADDRESS 



IN JTA 
USER BA 

RETURN 
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o 

S 

.> 

S 

S003 

S003 

S003 

S003 

SO03 

SO03 

SO03 

S 

s 



.lesii 

. 16612 
. 16613 
. 166 U 
. 16515 
. 16816 
. 16617 
. 16613 
.16513 
.16620 
.16621 
.16622 
. 16623 
.16624 
. 1662S 
.16626 
.16627 
.16623 
.16629 
.16630 
. 16631 
.16632 
. 16633 
. 16634 
. 1663S 
.16636 
.'16637 
.16633 
.16623 
. 16640 
. 16641 
. 16642 
. 16643 
.16644 
.16645 
.16646 
. 16647 
.16643 
. 1664-3 
. 166S0 
.16631 
. 16632 
.737 
.732 
.739 
.740 
.741 
.742 
.743 
. 16656 
.16657 
.16653 
.16659 
. 16650 
. 16651 
. 16652 
.16663 
. 16554 
. 16665 
16665 
16667 
. 16653 
. 16553 
. 16670 
16671 
. 16672 
. 166^3 
. 16674 
16675 
16676 
166~7 
. 166"3 
16679 



CIRCULAR I/O 

PERFORMS PHYSICAL I/O ON A DATASET 
ACCESSIBLE TO TASKS THROUGH TIO AND DIRECT CALLS. 
CIO ROUTINES ARE: 

RDCS-READ CIRCULAR REQUEST 
WDCS-WRITE CIRCULAR REQUEST 



• TASKS CALL CIO BY PLACING REQUIRED PARAMETERS IN 'A' 
REGISTERS AND EXECUTING A RETURN JUMP TO THE ROUTINE. 



CIO READS/WRITES 512 WORD BLOCKS. THE CALLER HAS THE 
RESPONSIBILITY OF MAINTAINING THE BUFFER IN/OUT POINTER 
IN THE DSP. AS SHOWN IN THE PREVIOUS $WWD FLOW DIAGRAM. 



• THE CALLER SENSES COMPLETION OF PHYSICAL I/O BY CALLING 

GETREPLY, IF A REPLY IS FOUND THE CALLER SHOULD CALL ROUTINE 
REPCIO WITH SI AND S2 INTACT FROM GETREPLY, 
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OUT=FIRST->- 






LIMIT 






FIRST-* 



OUT-*-' 



LIMITS 







data 


■— -'■ 


,r. 





A. Filling the buffer 



B. Emptying the buffer 



FIRST 



OUT 



LIMIT 



*<*■■»» ■* ^ 



data 



/ i 
i i 



process i ng 
flow 



C. Concurrently filling 
and emptying the buffer 



Physical I/O 
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DATASET PARAMETER AREA - DSP 

Logical I/O requires the presence of a DSP for the dataset in the user's 
field. Refer to publication SR-0011 for details of DSP use. 



3 5 



10 16 



25 



40 



56 



63 



c 



3SY 



'//////// I IPB 



f/\ RBC 



UEOF 
EOR. 



BIO 



<TN 





STS 



DN 



ERR 



Tr^i bpi \////\h<f\ 



TpSTPMEM RDM 




/////// 



END 



FRST 



IBN TRAN^IAI^UDS 



IN 



OBP 



OBN 



OUT 



///BOD//////// 



TBN 



LMT 



w 



FpRW 



PPI 



PRI 



RCW 



EOF 



LPW 



K 



BF I BUBC 



BWC 



BWA 



BER 



TM 

reserved 

for use by 

TIO 



TPS 



TPN 



TPB 



TPV 



T*l^ I TPR 11^ *| ///TPP//////////////////////////////////777/ TAPE 



TPC TPM 
DEL BLNK 



Reserved for 
logical I/O 



23 /////////// 



3wl 



RECL 



NXRC 



DIR UFMT 



Dataset Parameter Area (DSP) 
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MEMORY MANAGEMENT 



PROVIDES TEMPORARY MEMORY AREAS FOR TASKS (AREAS IN STP) 

MEMORY AREAS ARE OF VARIABLE-SIZE 

MEMORY POOLS ARE USED 

MEMORY MANAGEMENT ROUTINES ARE: 

MEMAL-ALLOCATES A TASK MEMORY AREA 
MEMDE-DEALLOCATES A TASK MEMORY AREA 
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MEMAL ALLOCATES A VARIABLE-SIZE MEMORY 
AREA TO A TASK. MEMAL IS CALLED VIA A 
RETURN JUMP WITH THE CALLER PROVIDING: 

INPUT REGISTERS: (A6) = Number of memory pool from which to allocate 

(A7) = Number of words desired 

OUTPUT REGISTERS: (A6) = Status: 

Good status 

1 Invalid memory pool number 

2 Invalid number of words requested 

3 Memory not available 

(A7) = Address of first usable word of memory to be 
allocated 
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STP 

COMMON SUBROUTINES 



CAL 1.03 78232 



10/09/78 12=35:17 



PAGE 



S3 





EJECT 




A025S.333 


/^.^^^^^»*^^J^^^tv.f •*_t-wtw^_^.^4s..f. 1^^f^.t^^>f^^*N J ^ l w1Ct\]^^C|C^/T^ V-^^^^^-t^-^ T^*wt^-'jC^ 


A0253.334 


19? 






A0255 . 335 


* 






A02SE.336 


*NAME 


MEMAL - 




A02S5.337 


* 






A0255 . 338 


^PURPOSE 


MEMAL WILL AlJ_OCATE A VARIABLE SIZE AREA OF MEMORY FROM A 


A0255.933 


* 


MEMORY POOL. 


A02S5 . 340 


* 






A02S5.341 


*ENTRY 


AS = NUMBER OF THE MEMORY POOL TO ALLOCATE FROM 


A0253.342 


* 


A7 = NUMBER OF WORDS REQUIRED 


A0255.343 


* 






A0255.344 


*EXIT 


A6 = STATUS 


A0255.345 


* 




= GOOD RETURN 


A0255.34S 


X 




1 = INVALID POOL NUMBER 


A02E5.347 


* 




2 = INVALID NUMBER OF UORDS REQUESTED 


A0255.94S 


* 




3 = MEMORY NOT RVAILABE 


A0255 . 349 


* 


A7 = ADDRESS OF FIRST USEABLE WORD ALLOCATED— MEANINGFUL 


A0255.35O 


X 


ONLY 


IF AS = 


A0253 . 351 


X 






A0253.3S2 


xxxxx*acmc*tJttc^ic^ 


A0255 . 353 


MISTAKEl 


= 


1 


A025E.954 


MISTAKE2 


= 


2 


A0255 . 355 


MISTAKES 


= 


3 


A02S5.356 


MEMAL 


= 


X 


A0255.357 




A5 


POOLTBL BASE ADDRESS OF POOL TABLE 


A0255 . 358 




GET,S5 


SS&S7,PTMAX,A5 MAX POOL NUMBER 


A0253 . '359 




A4 


S5 


A0255.360 




A0 


A4-AS 


A02S^ . 361 




JAM 


MEMERi JUMP IF POOL NUMBER GREATER THAN MAX 


A025S . 362 




A5 


A5+A6 ADDRESS OF POOL WORD 


A0255 . 363 




SO 


0.A5 


A02SS . 364 




JSZ 


MEMERI 


A0255.363 




Ae 


A7 


A02E5.366 




J&Z 


MEMER2 JUMP IF ZERO UORDS REQUESTED 


A0255.367 


X 






A0255.3S8 


* 


THE TOTAL 


SIZE TO BE ALLOCATED IS THE REQUESTED SIZE PLUS 


A025S . 363 


* 


THE SIZE 


OF THE HEADER AND TRAILER 


A0255 . 370 


* 






A0255.371 




A4 


MPHT 


A02SS.372 




A7 


A7+A4 TOTAL SIZE REQUIRED 


A0255.373 


* 






A0255 . 374 


* 


VERIFY THAT THE REQUESTED SIZE IS NOT LrtRGER THAN THE POOL 


A02E5.375 


* 






A0255.376 




GET, SI 


S6S£7,PTSIZE,A5 


A0255.377 




A4 


SI 


A0255 . 373 




A0 


A4-A7 


A0253 . 379 




JAW 


MSMER2 


A02=» . 980 


* 






A025S . 3S1 




GET, SI 


SS&S7,PTPASE,A5 


A02S5 . 322 




A4 


SI BASE ADDRESS OF MEMORY POOL 


A0255 . 383 


* 






A0255.9S4 


X 


LOCK OUT 


INTERRUPTS UNTIL THE SPACE HAS BEEN ALLOCATED 


A0255 . 385 


;v 






A0255 . 936 




SI 


1 


A0255 . 387 




STPLK, A0 


SI 


A0255 . 382 


MEMAL10 


-= 


y 


A025S . 389 




GET, SI 


S3&S7-MPID.A4 VALIDATE THE HEADER LORD 


A02SS . '390 




sa 


IDLRD,A6 


AC2S5 . 391 




SO 


31~*S2 


A0255 . 392 




ERRSN 




A02S5.933 




GFT , SO 


S53»S7,MPST,A4 


A02S5 . 394 




•JSN 


MEMALE0 JUMP IF- AREA IN USE 


A0253 . 395 




GET, SI 


S6&S7,MPSIZE,A4 SIZE OF AVAILABLE AREA 


A0255.996 




At 


SI 


A02S5.397 




AO 


A1-A7 


A02S5 . 393 




JAN 


MEMAL30 r-^-.^^-T. ^r 7r ^^qij,^ TO AVAILA3IJE 


A0255 . 399 
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AT THIS POINT THE SI! 
AVAILABLE AREA 



X 
X 
MEMAL30 

X 
X 



SI 


1 


put, si 


SS&S7,MPST,A4 


A2 


A4+A1 


A^ 


A2-1 


PUT, SI 


SS&S7,MPST,A2 



OF THE REQUEST IS EQUAL TO THE 

SET IN USE INDICATOR 
ADDRESS OF TRAILER WORD 



RELEASE INTERRUPT LOCKOUT 





SI 

UNLOCK 

A7 



A4-KL 



RETURN ADDRESS FIRST USABLE WORD 



CLEAR THE MEMORY ALLOCATED WITHOUT DESTROYING THE HEADER 
AND TRAILER 



A6 



ME^ALZ© - 



0,AS 
AS 
AO 
JAN 



A7 

SI 
ASM. 
A3-A2 
MEMAL20 



RETURN TO REQUESTOR WITH GOOD STATUS 



A6 
J 




BOO 



HERE AN AVAILABLE MEMORY AREA HAS BEEN LOCATED. 
IN SIZE TO THE REQUEST 



IT IS UNEQUAL 



JAM MEMALSO AVAILABLE IS LESS THAN REQUEST 
REPLACE THE EXISTING HEADER WORD AND CREATE A NEwi TRAILER 



TRAILER ADDRESS 
CLEAR OUT ANY GARBAGE 



A2 A4+A7 

A2 A2HL 

SI 

0,A2 SI 

SI A7 

PUT , SI S3&S7 , MPS 1 ZE , A4 

PUT, SI SS&S7,MPSIZE,A2 SIZE OF ALLOCATED AREA 

51 1 

PJT , SI SS&S7 , MPST , A4 

PUT, SI S6SS7, MPST, A2 IN USE INDICATOR 

52 IDWRD,A6 
PUT,S2 SS&S7,MPTD,A4 

PUT,S2 SS&S7,MPID. A2 POOL ID 

CREATE A NEW HEADER AND TRAILER FOR THAT SPACE WHICH IS 
STILL AVAILABLE 



ADDRESS OF NEW HEADER 
SIZE OF NEW AREA 

ADDRESS OF NEW TRAILER 

CLEAR NEW HEADER 



A2 


A2+1 


f 


Al 


A1-A7 




A6 


A2+A1 




A6 


AS-i 


i 


SG 







0,A2 
SI 


SG 

Al 


( 


PUT, SI 


S8&S7, 


,MPSIZE,A2 


PUT, SI 


SS&S7, 


,MPSIZE,A8 


SI 







PUT, SI 


SS&S7- 


,MPST,A2 


PUT, SI 


SS&S7 1 


, MPST , AS 


PUT,S2 


S6&37, 


, MP I D . A2 


PUT, 32 


SS&S7, 


. MP ! D , A^ 


UNLOCK 
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R<tfcS>to . 

A0255. 

A0255. 

A0255. 

A0255. 

A025S . 

A0255. 

A0255 . 

A02EG. 

A0255. 

A02S5. 

A0255. 

A0255. 

C0983. 

A02SS. 

A02S5. 

A0255 

A02SS. 

A02S5. 

A0c=5. 

A0255. 

A0255. 

A0255. 

A0255. 

A02S5. 

A02S5. 

A0255 . 

A02SS. 

A02S3 

A0255. 

A0255. 

A02SS . 

A0253 . 

A0255. 

A0255 . 

A0255. 

A02S5. 

A02SS . 

A02S5. 

A0255. 

A0255. 

A0255. 

A02S5 . 

A0255. 

A02S5. 

A0255 . 

A02S5. 

A0255. 

A02S5. 

A0255. 

A02S5 . 

A02S5 . 

A0255. 

A02S5 . 

A0255 . 

A0255. 

A0255 . 

A02S5. 

A02S5. 

A0233 . 

A0255 . 

A0255 . 

A0253. 

A0255 . 

A02S5 . 

A' '255 . 

A02S5 . 

A0253 . 

A02S3. 

A0255. 

C0983 . 



1001 
1002 
1003 

1004 

1005 

IOCS 

1'- "> 

:1 J 
1009 
1010 

1011 

1012 

29 

1014 

1015 

1013 

1017 

1013 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1023 

1027 

1023 

1023 

1020 

1031 

1032 

1033 

103* 

10~5 

". I 

ifc^7 

1033 

1033 

1040 

1041 
1042 
1043 
1044 
1043 
1043 
1047 
1043 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
105S 
1057 
1053 
1053 
1080 
1061 
1062 
1.Q63 

* --3 
1063 
1067 
1063 
1063 
20 



* 






* 

X 


CLEAR THE 


ALLOCATED AREA 


A2 


A2-1 




A7 


A4+1 




A4 


A4-K1 


MEMAL40 


= 


* 




0,A4 


SI 




A4 


A4-M 




A0 


A2-A4 




JAN 


MEMAL40 




A6 







J 


B00 RETURN GOOD STATUS 


MEMAL50 


= 


* 




GET, SI 


SS&S7,MPSIZE,A4 SIZE OF CURRENT AREA 




A2 


SI 




A4 


A4+A2 ADDRESS NEXT HEADER WORD 




GET, SI 


SS&S7,PTBASE,AS FOOL BASE ADDRESS 




GET, 52 


SS&S7,PTSIZE,A5 POOL SIZE 




SI 


S1+S2 END ADDRESS OF PuOL 




Al 


SI 




A0 


A1-A4 




JAN 


MEMAL10 JUMP IN ENTRIE POOL NOT YET SEARCHED 



THE MEMORY POOL DOES NOT CONTAIN ENOUGH AVAILABLE CONSECUTIVE 
SPrtCE TO FILL THE REQUEST 



RELEASE INTERRUPT LOCK-OUT 



MEMERi! = 



MEMER2 



UN- 


.DCK 




AS 




MISTAKE3 


J 




BOO 


= 




X 


A6 
J 




MISTAKEl 
BOO 


= 




* 


A6 
J 




MISTAKE2 
BOO 



A02SS. 
A0255. 
A02SS. 
A02S5 . 
A0255 . 
A02S5. 
A02SS. 
A0255. 
AOS35. 
A02S5. 
A02SS. 
A0235. 
A0255. 
A02S5. 
A0255. 
A02S5. 
A0255. 
A02S5. 
A02S5. 
A025S. 
A0255. 
A0255 . 
A0255. 
A0255. 
A0255 . 
A0255 . 
A0255. 
C07S3 . 
A025S. 
A0?S5 . 
A02S5. 
A025S. 
A0255 . 
A0255. 
A0255. 
A0255. 



1071 
1072 
1073 

1074- 

1075 

107S 

1077 

1078 

1073 

1080 

1081 

1082 

1083 

1084 

1085 

10SS 

1087 

1083 

1083 

1030 

1091 

1092 

1093 

1094 

1035 

109S 

1097 

1 

1093 

1099 

1100 

1101 

1102 

1103 

1104 

1105 
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MEMDE RETURNS (DEALLOCATES) MEMORY TO THE 
MEMORY POOL FOR REALLOCATION. MEMDE IS 
CALLED VIA A RETURN JUMP WITH THE CALLER 
PROVIDING: 



INPUT REGISTERS: (A6) = Memory pool number 

(A7) = Address of first usable word of memory to be 
deallocated 

OUTPUT REGISTERS: (A6) = Status: 

Good return 

1 Invalid address 

2 Area not currently allocated 

3 Invalid pool number 

(A7) = Address of memory released; meaningful only if 
status is 0. 
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STP 

COMMON SUBROUTINES 



CAL 1.03 78282 



10/09/78 12:35=17 



PAGE 



68 



tJECT 

YtNAME MEMDE 

X 

^PURPOSE MEMDE RETURNS MEMORY TO THE POOL COMBINING IT WITH AVAILABLE 

* ADJACENT AREAS TO HELP PREVENT FRAGMENTATION 

M 

GENTRY 

:* 

YEX1T 

■< 

is 
r. 

DEERRU = 1 
DECRRE = 2 
DGERR3 
MEMDE 



A6 = POOL NJMBER MEMORY SHOULD BE RETURNED TO 
A7 - ADDRESS OF THE MEMORY TO BE RELEASED 

AS = STATUS 

= GOOD RETURN 

1 = INVALID HEADER WORD 

2 = AREA NOT CURRENTLY ALLLOCATED 

3 = INVALID POOL NUMBER 

A7 = ADDRESS OF AREA RELEASED — MEANINGFUL ONLY fF GOOD STATUS 



Al 

GET, SI 
S2 

S0 

JSN 

GET,S0 

JSZ 

AS 

GET, SI 

S2 

S0 

JSM 

A5 

S0 

JSZ 

GET, SI 

GET, 52 

S2 

S3 

S0 

JSM 

SO 

JSM 



3 

* 

A7-1 

SS&S7,MPID,A1 

IDWRD,AS 

S2-S1 

DSER1 

SS&S7,MPST,Ai 

DEER2 

POOLTBL 



JUMP IF INVALID HEADER WORD 



JUMP IF PREVIOUSLY RELEASED 
BASE ADDRESS OF POOL TABLE 

SS3iSS,PTMAX,A5 MAY VALID POOL NUMBER 

AS 

S1-S2 

DEER3 JUMP IF INVALID POOL 

A5+A6 ADDRESS OF POOL WORD 

0,AS 

DEER3 JUMP IF INVALID POOL 

SSSlS7,PTBASE,A5 

SSkS7,PTSIZE,A5 ^COL SIZE 

S2+S1 END ADDRESS OF POOL 

Al ADDRESS OF AREA TO RELEASE 

S3-S1 

DEER3 JUMP IF ADDRESS OUTSIDE POOL RANGE 

S2— S3 

DEER3 



JUMP IF ADDRESS OUTSIDE POOL RANGE 

THE VALIDATION IS COMPLETE. NOW ACTUAl.LY RELEASE 7-E SPACE 

S6 1 

STPLK,A0 SS LOCK OUT INTERRUPTS 

GET,S4 SSkS7,MPSIZE,Al SIZE OF AREA 

S3+S4 

SS 

A2-1 TRAILER ADDRESS 



S0&S7.MPST,A1 MARK IT AVAILABLE 

S0&S7, MPS V,A2 

SS-S2 

MEMDF10 JU^P IF LAST AREA IN POOL 

S5 ADDRESS OF NEXT HEADER 

S6&S7 . MPST , A4 

MEMDE 10 JUMP TF NFXT AREA NOT AVIALABLE 



SS 

A2 

A2 

SS 

PUT.S6 

PUT,SS 

SO 

.. ISP 

A4 

ge r . so 

JSbi 



AC253. 

A02S5. 

A0255. 

A02S5 

A02S5 

A02S3 

A02SS 

A0255 

A02SS 

A02S5 

A0255 

A0235 

A0255 

A0255 

A0255 

A0255 

A02S5 

A025S 

A0255 

A02S5 

A02S5 

A02SS 

A02SS 

A0255 
A0E55 
A0255 

A02S5 

A0253 
A0255 
A02SS 
A02SS 
A02SS 
A025S 
A02S5 
A0255 
A025S 
A02S5 
A025S 
A02SS 
A0255 
A02SS 
A025S 
A02S5 
A02S5 
A02ES 

Aoass 

A02S5 
A02S5 
A025S 
A02S5 
A0?5S 
A0253 
A02S5 
A0253 
A02S5 
A025E 
A02S5 
A02S5 
A0255 
A02SS 
A02S5 
A025S 
A02SS 



1106 
1107 

110S 

1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1113 
1119 
1120 
1121 
1122 
1123 
1124- 
1125 
1126 
1127 
1123 
1123 
1130 
1131 
1132 
1133 
1134 
113S 
1136 
1137 
1133 
1133 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1143 
.1150 
1151 
1152 
.1153 
1154 
1155 
1156 
1157 
1153 
1153 
1 160 
1161 
1162 
1163 
1164 
1165 
1166 
J 167 
1168 
1 163 
1170 
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THE FOLLOW ING MEMORY AREA IS AVAILABLE. COMBINE THE TWO INTO 
ONE LARGE PREA 



GET.S5 SS&S7,MPSIZE,A4 SIZE OF FOLLOWING AREA 

S4 SS+S4 

AS S4 

A2 A1+A5 

A2 A2-1 

MEMDE10 = * 

SO S1-S3 

JSZ MEMDE20 

A4 Al-1 

GET, SO S8SlS7,MPST,A4 

JSN MEMDE20 



COMBINED SIZE 
TRAILER ADRESS 



JUMP IF AREA IS FIRST IN POOL 
ADDRESS OF PRECEEDING TRAILER 

JUMP IF PRECEEDrNG AREA IN USE 



THE PRECEEDING AREA IS AVAILABLE. COMBINE THE TWO INTO 
ONE LARGE AREA 



SIZE OF PRECEEDING AREA 
COMBINED SIZE 

BASE ADDRESS OF LARGEST PREA 





GET. 


■ SS 


SS&S7,MPSIZE",A4 




S4 




S4+S5 ( 




A4 




SS 




Al 




A1-A4 1 


* 








* 


CREATE 


NEW HEADER AND TRA 


* 








MEMDE20 


= 




* 




PUT, 


.S4 


SSaLS7,MPSIZE.Al 




PUT, 


• S4 


S5&S7,MPSTZE,A2 




A6 




( 




UNLOCK 






J 




B00 


DEER1 


= 




* 




A6 




DEERR1 




J 




B00 


DEER2 


=i 




* 




P£ 




Db!ERR2 




J 




B0O 


DEER3 


= 




* 




A£ 




DEERR3 




J 




B00 



GOOD STATUS 



A0255. 
A0255 . 
A02S5. 

A0255. 
A0255. 
A0255. 
A0255. 
A0255. 
P0255. 
A02SS. 
A0255. 



A02S5 
A02S5 
A02S5 
A02S5 
A025C 
A02SS 
A0E55. 
P0255 
A02S5 
A0255 
A02S5 
A025S 
A02E5 
A0255 
A02E5 
A0255 



C0983 
P02S5 
A02S5 



A02S5 
A0255 
A0255, 
A02S5 
A0255 
A02S5 
A02SS 



1171 
1172 
*«73 
4 
U75 
1176 
1177 
1173 
1179 
1120 
1131 
1182 
1133 
1134 
1135 
1186 
1137 
1133 
1139 
1130 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1193 
1199 
1200 
31 

i_j3 
1204 
1205 
1206 
1207 
1203 
1209 
1210 
1211 
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POOL TABLE -POQLTBL 
The Pool Table is an STP-resident table used for memory pool manaqement. 

16 i+o 58 63 

Header 
Entries 




HEADER 






Field 


Word 


Bits 


PTMAX 





58-63 


ENTRY 






Field 


Word 


Bits 


PTSIZE 





16-39 


PTBASE 





40-63 



Pool Table 

Description 

Maximum valid memory pool number in system 



Description 

Size of the memory pool 

Base address of the memory pool 



MEMORY POOL -POOL I.... n 

Memory pool areas are surrounded by header and trailer words that control 
the allocation and deallocation of the areas. 






i 


16 




kO 




63 


°L 


v///szmtt. 




ID 




SIZE 




w 


5T 













I 



,W>. 



SIZE 



Memory Pool 



Field 
MPST 



MPID 



MPSIZE 



Word 



0,n,etc. 



Bits 



0,n,etc. 16-39 



0,n,etc. 40-63 



Description 

Status of the memory area: 

Available 

1 In use 

Memory pool identification 

01010101 Pool 1 
OxOxOxOx Pool x 

Size of the memory pool 
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ITEM CHAINING/UNCHAINING 



PROVIDES MEANS FOR TASKS TO LINK DATA 
AMOUNT OF DATA TO LINK IS DEFINED BY THE TASKS 
MAY BE USED TO LINK REGISTER DATA OR POOL DATA 
DATA IS CONSIDERED AN ITEM 
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CHAIN/CHAINF PLACE AN ITEM ON A CHAIN. CHAIN WILL PLACE 
AN ITEM ON THE END WHEREAS CHAINF WILL PLACE AN ITEM ON 
THE FRONT OF A CHAIN. CHAIN/CHAINF ARE CALLED VIA A 
RETURN JUMP WITH THE CALLER PROVIDING THE FOLLOWING: 



INPUT REGISTERS: (A6) = Address of chain control word 

(A7) = Address of the item to be chained 

OUTPUT REGISTERS: (A6) = Unchanged from input 

(A7) = Unchanged from input 
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EJECT 




A02S5.5212 


iasxitiff0a^ 


A02S5 . 1213 


x* 






A0255 . 1214 


* 






A0255.1215 


XNAME 


CHAIN 




A02SS . 1216 


X 






A0255.1217 


^PURPOSE 


CHAIN U 


ULL ADD AN ITEM TO AN EXISTING QUEUE. ITEMS ARE 


A02SS.121S 


* 


ALWAYS 


ADDED AT THE END OF THE QUEUE. 


A025S". 1213 


* 






A02S5 . 1220 


GENTRY 


AS = ADDRESS OF CHAIN CONTROL UOREf 


A02S5.1221 


X 


A7 = ADDRESS OF THE ITEM TO ADD TO THE CHAIN 


A0255.1222 








A02S5.1223 


XEXIT 


AS = UNCHANGED 


A0255 . 1224 


* 


A7 = UNCHANGED 


A0255 . 1225 


* 






A025S.122S 


XX 






A02S5.1227 




A02S3.. *"?8 


CHAIN 


= 


* 


A0255 . 3 




SI 





A02S5.1230 




PUT, SI 


SS&S7,CIFl.,A7 


A02S3 . 1231 




PUT, SI 


S3&S7,CIBL,A7 JUST TO 3E SAFE 


A02S5 . 1232 




Si 


' AS 


A0255 . 1233 




PUT, SI 


. SS&S7.CICCA7 SAVE CHAIN CONTROL ADDRESS 


A02S5.1234 




GET, SI 


SS&S7,CCTAIL.A6 


A02SS.123S 




S2 


A7 


A0255.1236 




pv-r.sa 


SS&S7,CCTAIL.A6 NEW TAIL ADDRESS 


A0255 . 1237 




PUT, SI 


SS&S7,CIBL,A7 BACKWAR LINK = OLD TAIL 


A0255.123S 




• S0 


SI 


A02S5.1233 




JSN 


CHAIN10 


A0255 . 1240 


* 






A0255 . 1241 


* 


1V£ CHAIN- WAS EMPTY. THIS IS TriZ ONLY ITEM ON QUEUE 


A0253 . 1242 


* 






A0255.1243 




PljT,5Z 


SS?,S7,CCHEAD,A6 HEAD = TAIL 


A02S5.1244 




J 


CHAIN20 


A0255 . 1245 


CHAIN!© 


= 


-V 


A0255.1246 




AS 


SI 


A0255 . 1247 




PUT.S2 


SS&S7.CIFL,A5 FORWARD LINK OLD TAIL = HE A TAIL 


A0255 . 1243 


CHAIN20 


= 


X 


A0255 . 1249 




J 


B00 


A0255 . 1250 
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*NAME CHAINF 

^PURPOSE CHAINF WILL ADD AN ITEM TO THE FRONT OF AN EXISTING QUEUE. 

A? = ADDRESS OF CHAIN CONTROL WORD 
A7 = ADDRESS' OF THE ITEM TO BE ADDED 



ENTPY 



AS = UNCHANGED 
A7 = UNCHANGED 



*EXIT 

^.REGISTERS MODIFIED - S0,S1,S2,SS,S7, A5 

*3^«acicicicic*: i«ic«ceic***ic!cicwc*: xxxaa^i^^ 
CHAINF = * 

SI 1 

S7PLK,0 SI LOCK OUT INTERRUPTS 

S6&S7,CCHEAD,AS 

S2 

A7 

CHAINF1 

S6&S7,CCH£AD,A6 

S2 

SS&S7,CIBL,A5 

CHAINF2 
CHAINF1 = * 

SET . SI SS3tS7 . CCHEAD 

SET , SI SS&S7 , CCTA IL 

UA?CCHEAD,A6 SG 
CHAINF2 = * 

SI AS 

PUT, SI SS&S7,CICC.A7 CHAIN CONTROL POINTER 

S3 W2CIFL,A7 

S2T,S2 SS&,S7,CIFL 

SI O 

SET, SI S61S7,CIBL 

ueCIFL,A7 SS 
UNLOCK 

j Bd 

ERR IF USCIFL,NE,UBCIBL 
ERR I F W-3CO IEAD .. HE, W9CCTA I L 



SO 
SI 
JSZ 

SPUT , SI 
AS 

PJT.S1 
i 



B04S2. 
B0492. 
B0492. 
B0492. 
B0432. 
B0432. 
B0492. 
B0492. 
B0492. 
B0432. 
B0432. 
B0492. 
B0492. 
B0492. 
B0492. 
B0492. 
B0492 . 
B0432. 
B0492. 
B0492. 
B0492. 
B0492. 
B04S52. 
B0432. 
B0492. 
B0492. 
B0432. 
B0492. 
B0432. 
B0432. 
B04.92. 
B0492. 
B0482. 
B0492 . 
B0492. 
B0432 . 
B0492. 
B0432 . 
B0492. 
C09S3. 
B0492 . 
B0492. 
B0432. 



124 

125 
12B 
127 

122 
123 
130 
131 

132 
133 
134 
13S 
133 
137 
138 
133 
140 
141 
142 
143 
144 
145 
14S 
147 
14S 
149 
150 
1S1 
152 
133 
154 
155 
156 
157 
153 
153 
1G0 
161 
162 

164 
165 
166 
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UNCHAIN REMOVES AN ITEM FROM ANYWHERE ON THE CHAIN. 
THE CALLER MUST UPDATE THE COUNT OF THE NUMBER OF ITEMS 
REMAINING ON THE CHAIN. UNCHAIN IS CALLED VIA A RETURN 
JUMP WITH THE CALLER PROVIDING THE FOLLOWING: 



INPUT REGISTER: (A7) = Address of item to be unchained 
OUTPUT REGISTER: (A7) = Unchanged from input 
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UNCHAIN 

UNCIAIN 

TO BE REMOVED MAY OCCUPY AMY POSITION IN THE CHAIN. 

A7 = ADDRESS OF ITEM TO BE REMOVED 

A0 = STATUS 

= GOOD RETURN 

1 = ITEM IS NOT ON A CHAIN 
A7 = ADDRESS OF ITEM REMOVED 



EJECT 

*NAME 

*RJRPOSE UNCIAIN WILL REMOVE AN ITEM FROM AN EXISTING QUEUE. THE ITEM 

GENTRY 
*EXIT 

* 
* 

UNCHERl = 1 

UNCHAIN = X 

GET. SI SS2*S7,CICC,A7 CHAIN CONTROL WORD ADDRESS 

50 SI 
A6 SI 

A© UNCHERl 

JSZ UNCH50 JUMP IF ITEM NOT ON A CHAIN 

51 1 

STPUCAO SI LOCK OUT INTERRUPTS 

GET, SI S3&S7.CCHEAD,A6 HEAD OF CHAIN 

52 A7 ADDRESS OF ITEM TO REMOVE 
GET, S3 SbS£7,CIFL,A7 FORWARD LINK CF ITEM 
GET.S4 SSacS7.CIBu.A7 BACKWARD LINK OF ITEM 

SO S1-S2 

JSH UNCH10 JUMP IF ITEM NOT HEAD OF CHAIN 

PUT, S3 Sb&S7,CCHEAD,A6 ITEM FOUARD LINK = NEW HEAD 

UNCH10 = * 

GET, SI SS3,.S7,CCTAIL,A6 TAIL OF CHI AN 

SO SI -S3 

JSN UNCH20 JUMP IF. ITEM NOT TAIL OF CHI AN 

FJT.S4 S3&S7,CCTaIL,A6 ITEM BACKWARD LINK = NEW TAIL 

UNCHE0 = * 

S3 



UNCH30- 



SO 
JSZ 

A2 

PUT.S4 

SO 

JSZ 

A2 

PUT, S3 



UNCH40 = 



UNLOCK 
PUT, SI 
AO 



UNCH30 = 
J 



UNCH30 JUMP IF FOUAD LINK IS ZERO 

S3 

S^S7,CIBL.A2 NEW BACKWARD LINK FOR FOLLOWING ITEM 

* 

SA 

UNCH40 JUMP IF BACKWARD LINK. TS ZERO 

S4 

SS&S7XIR-.A2 NEW FORWARD LINK FDR PRECEEDING ITEM 

SS&S7.CICCA7 CLEAR CHAIN CONTROL. 

GOOD STATUS 

X 

BOO 
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A02S5. 
A02S5. 
AW255. 
A0255. 
A0255. 
A0255: 
A0255. 
A02SS. 
A0255. 
A02SS. 
A0255. 
A02S5. 
A0255. 
A02S5. 
A02E5. 
A0255. 
A02S3. 
A0235 . 
A02S5. 
A0Z55. 
A0255 . 
A0255. 
A02S5 . 
A025S. 
A0255. 
A02S5 . 
A0255 . 
A0235. 
A0235. 
A0255 . 
A0235. 
A0255. 
A0255 . 
A02S5. 
A0255. 
A0255. 
A025S. 
A0255. 
A02S5. 
A0255. 
A02S5. 
A02S5. 
A02S5. 

A0255. 
A0255. 
A0255. 

A025S. 
A025E. 
A025S . 
A0255. 
C0933. 
A0255. 
C0933 . 
A02S5. 
A0233. 



1251 
12S2 
1253 
1254 
1255 
1256 
1257 
1253 
1253 
1260 
1261 
1262 
1263 
12B4 
1265 
1266 
1267 
126S 
12S9 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1273 
1279 
1220 
1221 
1222 
1233 
12S4 
1225 
12S6 
1237 
1223 
12S9 
1290 
1231 
1232 
1293 
1294 
1235 
1236 
1297 
1298 
1299 

1300 

33 

1303 

34 

1305 

1306 
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CHAIN CONTROL - CC 
Intertask communication requires chain control words in the format defined. 







TMgrQM 



16 



TLorQL 



^o 



HEAD 



63 



TAIL 



Field 
CCTM 

CCQM 

CCTL 
CCQL 

CCHEAD 
CCTAIL 



Figure l.CC-1. Chain Control Word 



Word 












Bits 
0-7 

0-7 

8-15 
8-15 

16-39 
40-63 



Description 

Maximum number of items to be queued to a 

particular task 

Maximum number of items to be queued from 

one task to another 

Number of items queued to a particular task 

Number of items to be queued from one task 

to another 

Address of first item on the chain 

Address of last item on the chain 



CHAIN ITEM - CI 

Any item queued using the STP common routines CHAIN and UNCHAIN must 
reserve the first two words of the item to be used by the common routines 



c 


1 16 


**0 




63 





ZZZZZZZZ FL 


BL 


1 


fe^^^^^^^^^ 


CC 



Field 
CIEX 

CIFL 

CIBL 

CICC 



Word 






1 



Chain Item 



Bits Description 

This bit, if set, indicates that the 
item is in execution. 

16-39 Forward link; address of next item on 
the chain 

40-63 Backward link; address of the preceding 
item on the chain 

40-63 Address of the chain' control word for 
this item 
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TASK TO TASK COMMUNICATION 
THERE ARE 2 AREAS FOR INTERTASK COMMUNICATION 

1. COMMUNICATION MODULE CHAIN CONTROL (CMCC), 

CONTIGUOUS AREA 

ENTRY FOR EACH POSSIBLE TASK COMBINATION 

ARRANGED IN TASK NUMBER SEQUENCE 

POINT TO THE COMMUNICATION MODULES (CMOD's) 

2. COMMUNICATION MODULE (CMOD) 

ALLOCATED AS NEEDED FROM A POOL 
ALL TASK REQUESTS ARE THROUGH A CMOD. 
ALL TASK REPLIES ARE THROUGH A CMOD. 
2 WORDS FOR SYSTEM CONTROL 
2 WORDS AS TASK INPUT REGISTERS 
2 WORDS AS TASK OUTPUT REGISTERS 

TASKS PLACE REQUESTS IN THE INPUT WORDS OF A CMOD. 

TASKS RECEIVE REPLIES IN THE OUTPUT WORDS OF THEIR CMOD 

FORMAT OF A REQUEST IS DEFINED BY THE CALLED TASK 



3.42 




COMMUNICATION MODULE CHAIN CONTROL 

.A 



HEADER 


TASK 





TO 


1 


TASK 


i 


TO 


1 


TASK 


2 


TO 


1 


TASK 


3 


TO 


1 


TASK 


4 


TO 


1 


TASK 


5 


TO 


1 



TASK N TO 1 



COMMUNICATION MODULES 




CMOD#2 
TASK 2 TO 1 



CMOD N 
TASK 2 TO 1 
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A TASKS CALLS EXEC TO ACTIVATE ANOTHER TASK. 



THE TASK SCHEDULER IN EXEC EXAMINES THE SYSTEM TASK TABLE 
TO DETERMINE THE HIGHEST PRIORITY TASK READY TO EXECUTE. 



• THE RE-ENTRANT ROUTINES; 
PUTREQ 

GETREQ 

PUTREPLY 

GETREPLY 

TSKREQ 

ARE USED FOR INTERTASK COMMUNICATION. 



• THE REQUEST FOR INTERTASK COMMUNICATION IS PASSED IN 
REGISTERS SI AND S2. 
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PUTREQ PLACES THE REQUEST IN THE INPUT REGISTERS OF 
A CMOD AND LINKS THE CMOD TO THE APPROPRIATE CMCC. 
PUTREQ IS CALLED VIA A RETURN JUMP WITH THE CALLER 
PROVIDING THE FOLLOWING: 



INPUT REGISTERS: (Al). = "Throw-away" indicator. If (Al) is positive, 

control is not returned to caller until request 
is queued. If (Al) is negative, control returns 
with no action taken if the request cannot be 
queued without suspending the caller. 

(A2) = Requested task's ID 

(SI) - INPUT+O 



request 
(S2) = INPUT+1 



OUTPUT REGISTERS: None 



3.46 



STP 

COMMON SUBROUTINES 



CAL 1.03 73282 



10/09/78 1Z-3S-17 



PAGE 



44 



ONCE THE REQUEST HAS BEEN CHAINED PUTREQ RETURNS TO THE 
THE ORIGINATOR 



C.--IC.W I 

**|C|[*|C(Q|CtiCl(*A'^CjCK**^^ 

*NAM£ PUT=EQ 

% 

^PURPOSE PUTREQ QUEUES A REQUEST FOR PROCESSING TO ANOTHER TASK. 

% 

% 

SENTRY 

* Al = NEGATIVE THROW AUAY REQUEST INSTEAD OF SUSP 

% 
% 
.f. 
*EXIT 



Al = 



A2 
SI 
S2 



THROW AWAY INDICATOR 

Al = NEGATIVE THROW AUAY REQUEST INSTEAD OF 
Al = POSITIVE SUSPEND UNTIL REQUEST QUEUED 

DESTINATION TASK ID 

INFUT+0 

INPUT+1 



PUTREQ = * 



AG 
A7 
AS 
A7 
A6 



LEOSAVER 

CTID,A0 

AS*A7 

SAVER 

AS+A7 



ADDRESS OF SAVE AREA FOR ORIGIN TASK 



SAVEA1.A6 Al 
SAVEA2,A6 A2 
SAVEA3.AS A3 
SAVEA4,A6 A4 
SAVEA5.A6 A5 
SAVES0-A6 S0 
SAVES1,A6 SI 
SAV2S2,A6 S2 
SAVES3.A6 S3 
SAVES4. AS S4 
SAVES5,A6 S5 
SAv'ES6,AS SS 
SAV-:S7,AS S7 
A7 B00 
SA'v'ERT.AS A7 
SS 

SAVEA6,A6 SS 
SAVEA7.A6 SS 



A3 


AS 


S0 


SI 


ERRSZ 




PUTREQ10 = 


* 


AS 


CMPOOL 


A7 


CMSIZE 


R 


MEMftL 


A5 


SAVERT, A3 


BOO 


AS 


A0 


AS 


JAZ 


PUTREO20 


A7 


MISTAKES 


A0 


AS-A7 


ERF AN 





ERROR IF INPUT&l = 

MEMORY POOL NUMBER 

CMOD SIZE 

ALLOCATE A CMOD 

RESTORE B00 FOR TRACE ENTRIES 



JUMP IF GOOD STATUS RETURNED 



A0255 
A0255 
A02S5 
A02S5 
A0255 
A0255 
A0255 



A0255 
A0255 
A0255 
A0255 
A0255 



A0255 



A02S5. 

A02S5. 

A02S5. 

A0255 

A0255. 

A02S5. 

A0255. 

A0255. 

A02S5. 

A0255. 

A0255. 

A0255. 

A0255. 

A0255 

A02S5 

A02S5 

A02E5 

A0255 

A02S5 

A0255 

A025S 

A025S 

A02SS 

A0255 

A0255 

A0255 

A02S5. 
A0255. 
A0255. 
B0492 . 
B0492 . 
A0255. 
A02S5 . 
A025S . 
A02S5. 
A0255. 
A02SS. 
A02S5. 
A0255 . 
A02S5 
A0255. 
A02S5 . 



379 

220 
381 
392 
3S3 
384 
385 
388 
387" 
388 
3S3 
330 
391 
392 
333 
394 
335 
39S 
397 
398 
399 
400 
401 
402 
40:3 
404 
405 
.406 
407 
408 
409 
.410 
411 
.412 
.413 
.414 
. 415 
. 416 
.417 
.418 
.419 
.420 
.421 
422 
423 
424 



425 



422 
423 
430 
431 
432 

,1 "T-J 

434 
435 
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MEMAL RETURNED A THREE STATUS — THERE IS NO MEMORY AVAILABLE. 
SUSPEND AND TRY AGAIN LATER 



THROW AWAY THE REQUEST 



A0 




SAVEA1 , A3 


JAM 




PUTREQSQ 


<r^~ 




SUSP 


ex 






R 




ERRORS 


J 




PUTREQIO 


ITREQ20 = 




*■. 


SI 




SAVES1,A3 






SAVES2,A3 


CM I NO, 


,A7 


SI 


CM INI, 


.A7 


S2 


POST 




12,S1,S2 



PUT THE MESSAGE IN THE CMOO 



CALCULATE ADDRESS OF CHAIN CONTROL HEADER 

CHAIN CONTROL HEADER = DESTINATION TASK ID * LENGTH OF CHAIN 

CONTROL ENTRY '+ CHAIN CONTROL BASE 



A6 
A5 
A5 
A6 
A5 



SAVEA2,A3 

LEfSCMCC 

A5*A6 

CMCC 

A5+A3 



CHAIN CONTROL HEADER ADDRESS 



CALCULATE THE CHAIN CONTROL WORD ADDRESS 

CHAIN CONTROL = CHAIN CONTROL HEADER + LENGTH OF HEADER + 
CURRENT TASK ID 



CHAIN CONTROL ADL^ESS 





A6 




LH@CMCC 




A6 




AS+AS 




A4 




CTID.A0 




AG 




AG+A4 


PUTREQ21 


= 




% 




Al 




1 




STPLK.AO 


Al 




GLT,S1 




SS&S7,CCTL,A5 




GET..S2 




SSS37,CCTM,AS 




SO 




32 




ERRSZ 








SO 




S1-S2 




JSZ 




PUTREQ22 




S4 




1 




SI 




S4+S1 




GET,S2 




S3&S7,CCQL,A6 




GET , S3 




SS&S7,CCQM,A6 




SO 




S3 




ERRSZ 








SO 




S2— S3 




J3Z 




PUTPEQ22 




S2 




S2+S4 


* 


UPDATE 


THE -3UEUE COUNTS 




PUT , Si 




SS&S7,CCTL,A5 




PUT,S2 




S6&.S7, CCQL* A6 




J 




PUTREQ2S 


x. 


THE QUE 


:ue 


IS AT ITS MAX 


fc 


AWAY 






PUTR'~Q£2 


- 




*K 



LOCK OUT INTERRUPTS 

ERROR IF QUEUE MAX IS ZERO 
JUMP IF QUEUE AT MAX 



JUMP IF QUEUE AT MAX 



A J. 

STPLK.A0 Al 

AO S-Y./EA1 , A3 

jam pjrr:-EQ23 

S7 SUSP 

EX 

P. ERF*-*0 

J PUTF2021 



EITHER SUSPEND OR THROW THE REQUEST 

RELEASE INTERRUPT UX50UT 
JUMP TO THOU THE REQUEST AWAY 
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A'^235 
A02S5. 
A0235 . 
A0255 . 
A0255 . 
A02S3 . 
A0255 . 
A0255. 
A0255. 
A02STJ. 
A0235 . 
A0235 . 
A02S3. 
A0255 . 
A02S5 . 
A0253 . 
A02S5 . 
A02S5 . 
£0255 . 
A0255 . 
A0255 . 
A0255 . 
A.025S . 
A02S5 . 
A0255 . 
A0255. 
A02S5 . 
A0255, 
A025S . 
A0255 
A02S5. 
A0235 
A02S5. 
A0255 , 
A0255 . 
A0235 , 
A0235 . 
A0235 . 
A025S. 
A02S5 . 
A025G 
A0255 . 
A0255 , 
A02S5, 
A0255. 
A02S5 . 
A02S5 . 
A0255 . 
A0255. 
A02SS 
A02S5 
A0255 . 
A02S5 . 
A02S5 . 
A02SS. 
A02S5 . 
A0255 . 



M 



v~' 



A0255 . 
AU233 . 
A0255 . 
A02S5 . 
A0235 . 
A0233 . 
A0255. 
A0235 . 
A02S3 . 
A0255 . 
A02S5 . 



433 
437 

423 

4.CL0 



443 
444 
443 
446 
447 
443 
443 
450 
451 
452 
453 
■454 
433 
±SS 
457 
-•152 
453 
4SO 
461 
462 
483 
4S4 
465 
466 
467 
•463 
4r- 

471 
472 
473 
474 
47S 
476 
477 
473 
473 
480 
481 
482 
483 
484 
4SS 
486 
■487 
■48S 
483 
490 
491 
432 
433 
•434 
495 
436 
437 
4T 

ai, _ 

300 

SOI. 
502 
303 
504 
505 



3D 7t 

c 



X * 



c 



OT 





-i 
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GETREQ SEARCHES FOR AN ACTIVE REQUEST FOR THE CALLER. 
GETREQ IS CALLED VIA A RETURN JUMP AND REPLIES WITH 
THE FOLLOWING: 



INPUT REGISTERS: None 

OUTPUT REGISTERS: (AO) = "Found" indicator. If (AO) = 0, no outstanding 

requests exist. If (AO) f 0, a request is 
being returned. 



(A2) = ID of task that generated the request. 
(SI) = INPUT+O } request 
i^7\ = TNPUT+1 i 



(S2) = INPUT+1 
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«c^rr*acfcic:fcici ******** ******** ******** * ic************** ******** r********** 
** 

i' 

*NAME GE~-4IQ 

* 

*RURROSE GE~REQ SEARCHES FOR AN OUTSTANDING REQUEST TO THE TASK. 

T Tv-E HIGHEST PRIORITY REQUEST uULL BE RETURNED TO THE 

* ORIGINATING TASK. PRIORITY CORESRONDS TO TASK ID 



A0235 
A0235 



S50 



*ENTRY 

*-exit 

* 
* 



Xt 



AO - FIND/NO FIND INDICATOR 

- NO FIND 

1 = FIND 

A2 = TASK ID CF THE REQUEST LOCATED 

51 = INPUT+O 

52 = INPUT+1 



:i;.je&.*****.;c^^ 

GETREQ = * 

AS LESSAVER 

A7 CTID.A0 

AS A3*A7 

A7 SAVER 



AS 



A5+A7 



ADDRESS OF SAVE AREA FOR ORIGIN TASK 



SAVE THOSE REGISTERS NOT ALREADY DESTROYED 

SAVEA1.A6 Al 

SAVEA2..A6 A2 

SAV£A3,A6 A3 

SAVEA4,AS A4 

SAV3A5,A6 A5 

SAvES0,A6 Sd 

SA'.-ES1,AS SI 

SAV3S2,AS S2 

SA'./£S3-A6 S3 

SAV3S4.AS S4 

SAVES5,AS S5 

SAV3SS,A6 S3 

SAV3S7,AS S7 

A7 B00 

SAVERT.A6 A7 

SG 

SAVEAS.AS So 

SA\/3A7,A6 So 

SAVEA0.AS S3 ASSUME NO C IND UiILL OCCUR 

A3 Ao 



CALCULATE THE ADDRESS OF CHAIN CONTROL HEADER 

CHAIN CONTROL HEADER = CURRENT TASK ID >■ CHAIN CONTROL LENGTH 

OF ENTRY - SASE OF CHAIN CONTROL 

Ai CTID.A0 

AS LESCMCC 

A I A1*A2 

AS CMCC 

Ai AI+aS CHAIN CONTROL HEADER ADDRESS 

GE ~ , SO SoiS7 , CCTL , A 1 

JIZ GETFEQ30 JUMP IF THERE IS NOTHING OS GUEUE 



A0233 . SEE 
A0Z55 . 
A0255 . 
A0235 . 
A02S5 
A023E . 
A0255 . 
A02S5. 
n025E. 
A0255 . 
A0255 . 
A025E . 
A0255 . 
A0255 
AOESo . 
A0253. 
A0255 
A0253 
A0EE5 . 
A02S3 . 
A0255. 
A0253 . 
A02S5 . 

A023E . 

Artier 

A.V>255 . 

A0255 . 
A0255. 
A0253 . 
A0253 . 
A0235 
A02S3. 
A0255 . 

A0255 . 
0025b. 
A02E5 . 
A0253 . 
A02S5 . 
A025E . 
A.0255 . 
A02S5 . 
A025E . 
A0255 . 

A0253 . 
A0255 . 
A0255 . 
A0253 . 

A0255 
A0235 . 

A0253 . 
A0255 . 
A0253 
A02EE . 
A0255 
A^-IEo 



,353 

.554 

555 

556 

557 

sss 

559 
SS<i> 
5S1 
562 
563 
5G4 
S65 
566 
567 
563 
362 
570 
'571 

by' c 

573 
574 
575 
573 
S77 
573 
573 
530 
531 
532 
53T3 
534 
535 
536 
337 

589 
SS0 
551 
'~R2 

534 

335 
596 
537 
533 
593 
G00 
501 
S02 
.333 

■se«L 

S05 
506 

307 

SOS 

. 303 

blO 

311 
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SEARCH EACH CHAIN CONTROL WORD FOR AN OUTSTANDING REQUEST 



WILL CONTAIN TASK ID OF FIND ON EX 111 





A2 


LHOCMCC 






Al 


A1+A2 






A2 









A4 


MA/TN 




GETREQ10 


= 


* 






GET, SO 


SS&S7,CC0,_ 


,A1 




JSN 


GETREQ20 




GETREQ15 


= 


* 






M 


Al+1 






A2 


A2+1 






a^:? 


A4-A2 






JAN 


GETREQ10 






J 


GETREQ30 





JUMP IF ITEMS ON CHAIN 

THIS CHAIN IS EMPTY GO TO THE NEXT 



JUMP IF ALL CHAINS NOT EXAMINED 
THERE ARE NO REQUESTS FOR THE TASK 



X 
GETREQ20 = 



A CHAIN WITH ITEMS HAS BEEN LOCATED 



GETREQ22 = 



GETRE02S = 



* 

GET , SI SS?^S7 , CCHEAD , Al 
GET , S2 SS&S7 , CCT A I L , Al 

* 

AS SI CMOD ADDRESS 

GET, SO SS3tS7.CIEX.A5 
JSZ GETREQ2E JUMP IF REQUEST IS NOT IN EXECUTION 

THE TASK IS EXECUTING THIS ITEM 

SO S1-S2 

JSZ GETREQ1S JUMP IF ALL ITEMS IN EXECUTION 

GET, SI SS&S7,CIFL,A5 ADDRESS OF NEXT CMOD 

J GETREQ22 

A REQUEST TO PROCESS HAS BEEN LOCATED 



* 



SAVE TASK ID OF REQUEST 



SAVEA2..A3 A2 

SI 1 

SAVEA0.A3 SI SET FIND INDICATOR 

PUT. SI SS&S7.CIEX.AS SET EXECUTE INDICATOR 

SI CM I NO. AS 

SE CM INI, AS 



SI 





ERR3Z 








SAV2S1 . 


A3 


SI 






A3 


SE 


X 








*' 


RESTORE 


: REGISTERS A? 


'■¥■ 

GETREQ30 


= 




* 




AS 




A3 




AO 




2AVEA0. AS 




Al 




SAVEAi . AS 




A2 




SAVEA2.AS 




A3 




SAVEA3.AS 




A4 




SAVEA4.AS 




A5 




S AV HAS , AS 




SO 




SAVESO . AS 




SI 




SAVES1 - A6 




S2 




SAVE32. AS 




c^ 




SAVE ~»3 , AS 




S4 




SAVES'!-, AS 




<^C ( 




SAVES5 . AS 




ss 




SAVESS . AS 




S7 




S AVES7 , AS 




A7 




SAVERT.AS 




BOO 




A7 




A7 




SAVEA7.AS 




AS 




SAVEAS.AS 




J 




BOO 



ERROR IF INRJTSd = 



A02S5. 

A02S5 . 

A0255. 

A02S5. 

A02S5. 

A0255. 

AyESE 

A0^55. 

A0255. 

AOdSG. 

A02S5 . 

A0255 . 
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A0255 
A02S5 
A0255 
A0255 
A0255 
A02S5 
A02S5 
A0255 
A0255 
A02S5 
A02SS 
A0255 . 
A02S5. 
A02S5. 
A02SS . 
A0255. 
A0255. 

A02S5 . 

A0255. 
A025S . 
A02S5 . 
A0253 . 
A025S . 
A025S . 
A0233 . 
A02SE . 
A02S5. 
A0255 . 
A02S5 . 
B0492. 
B0492. 
A02S5. 
A0255. 
A0255. 
A0255 . 
A02S3. 
A0255 . 
A02S5. 
A£>255 . 
A0255. 
A02S5 
A0255. 
A02S5. 
A02S5. 
A02S5. 
A02S5 
A0253 . 
A0255 
A0255 . 
A02Eo . 
m0255 . 
A02S5 . 
A02S3 . 

«*2So 
H02ES . 
A02S3 . 
H0253 . 3; 



S12 
S13 
514 
SIS 
SIS 
61.7 

ox3 
320 
321 

323 
324 
32S 
S2S 

S2S 
623 
■330 
S31 
S32 



£34 
S3S 
83S 
S37 
333 
333 
S40 
941 
542 
343 
S44 
S45 



343 

543 
SSO 
SSI 

SS2 
353 

SS4 

3 

10 

355 

S55 

S57 

353 

S53 

3S0 

3S1 

562 

SS3 

3S4 

SS5 

sss 

SS7 

3S3 

.'■"■'"••^ 

370 



375 



S77 

373 

373 

SO 



PUTREPLY PLACES A REPLY IN THE APPROPRIATE CMOD WHEN A 
TASK COMPLETES PROCESSING. PUTREPLY IS CALLED VIA A 
RETURN JUMP WITH THE CALLER PROVIDING THE FOLLOWING: 



INPUT REGISTERS: (A2) = ID of task to receive the reply. 

(51) = OUTPUTS | RMly 

(52) = OUTPUT+1 f 

OUTPUT REGISTERS: None 



3.53 



STP 

COMMON SI 



CAL 1 02 7S222 



10/09/78 12^35:17 



PAGE 



v- !><=.-> 



S3 



EJECT 
*«c*r|c!cfc*sap!r* *XK%XM?&XKXXX*:t ******** *** ***** * **^c****X**#lcfclc :££********,* 

.:*«rtNE PUTREPLY 
» 

*=VR?0SE PUTREPLY SAVES OUTPUT IN THE APPROPRIATE CMOD WHEN A TASK 
?. COMPETES PROCESSING 

* 

:*2NT=Y A2 = ID OF THE TASK TO RECEIVE THE 9EPLY 

-* SI ~ OUTPUT +0 

> S2 = OUTPUT +1. 

t 

•YEXIT 

** 

^incfc* fcJdcicfaacfc ****#*** ******** ******** **x**********~*** ?**r*****:m:****.*** 

PUTREPLY = * 

AS LEQSAVER 

A7 CTID.AO ORIGINATING TASK ID 

AS AS*A7 

A7 SAVER 

AS AS+A7 ADDRESS OF SAVE AREA FOR ORIGIN TASK 

* 
* SAVE THE REGISTERS CLEARING T^OSE ALREADY DESTROYED. 



SAVEA0, 

SAVEA1 , 

SAV2A2, 

SAVEA3, 

SAVIA4, 

SAVEA5 , 

SAVES0 , 

SAV231 , 

SAV2S2, 

SAVES3, 

SAV2S4, 

3AVS.SS.. 

SAV2SS, 

SAVES7 , 

A7 

SAVERT, 

SS 

SAV2A7, 

SAV'EAo, 

A3 

SO 

ERRSZ 



AS A0 
AS Al 
AS A2 
AS A3 
AS A4 
AS AS 
AS S0 
AS SI 
AS S2 
AS S3 
AS S4 
AS S3 
AS SS 
AS S7 

B00 
A6 A7 

O 

AS SS 

AS SS 

AS 
c-.r> 



ERRCP IF 2ND WORD OF REPLY IS ZERO 



CALCULATE CHAIN CONTROL HEADER ArC' CHAIN CONTROL WORD ADR 
CHAIN CONTROL. HEADER = BASE 0- CMOD CHAIN CONTROL + '! LENGTH 

OF An ENTRY * CURRENT TASK ID) 
CHAIN CONTROL WORD = CHAIN ZCNTROL HEADER + LENGTH OF HEADER 

+■ RECEIVING TASK ID 



Al 


CTID,A0 








AS 


LE6CMCC 








AS 


ASvKAl 








A A. 


CMCC 








ft8 


AS^Al 




CHAI^i 


CONTROL HEAD< 


A7 


LH3CMCC 








A7 


A7+AS 








A? 


A2+A7 




CHAIr-i 


CONTROL WORD 


GET, SO 


S3&S7 . CCQL 


.,A7 




ERRSZ 










GET, 35 


SZZS7,C'\-^ 


:ad, 


A7 




GET,S4 


S6&S7.CCTAIL, 


A7 





A02SS 

A02S5 
A0255 . 
A0PS3 
A0255. 
A02S5 . 
A02SS . 
A02S5 . 
A02SS . 
A0255. 
A02S5 . 
A02S5 . 
A02S5. 
A0255 . 
A02S5 . 
A02SS" . 
A025S. 
A02SS . 
A02S5. 
A025P . 
A0255 . 
A0255 . 
AP»255 . 
A02G5 . 
A02S3 . 
A0255 . 
A0255 . 
A0255 . 
A02SE . 
A02SS . 
A02SS . 
A02S5 . 
A02P5 . 
A0255. 
A02S5. 
A025F . 
A025S . 
A025E. 
A02bS . 
A0255 . 
A02SS . 
A.02S5. 
A0255 . 
A02E€. 
A025S . 
A02S3 . 
B0492 . 
P0432 . 
A0255 . 
A02S5 . 
A0255 . 
A0255 . 
A0255 . 
A0255 . 
A02S5 . 
A02S5 . 
A02S5 . 
A023S . 
A02SS . 

AorsE . 

A02S5 . 
A02P5 . 
A0255 . 
A0255 . 
A0255 
A023S . 
A0255. 
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538 
•3S7 
333 
333 
S9& 
331 
392 
S93 
694 
835 
S9S 
337 
333 
S39 
700 
701 
702 
703 
704 
70S 
70S 

70S 

703 
710 
711 

712 



715 
716 
717 
713 
713 
720 
721 
722 

724 

725 

72S 

11 

12 

727 

723 

72? 

730 
70 1 



■■ ~J-J 

724. 
735 
72S 
-'37 



? 41 
7 42 
? 4S 
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GETREPLY SEARCHES FOR A REPLY TO THE CALLING TASK. 
GETREPLY ALSO RELEASES THE APPROPRIATE CMOD WHEN A 
REPLY IS FOUND. GETREPLY IS CALLED VIA A RETURN 
JUMP AND REPLIES WITH THE FOLLOWING: 



INPUT REGISTERS: None 

OUTPUT REGISTERS: (AO) » Find indicator. If (AO) = 0, no reply was 

located; if (AO) f 0, a reply is being returned 
to the caller. 
(A2) = ID of replying task 

(51) = OUTPUT+0 K eply 

(52) = OUTPUT+1 J 
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CAL 1.03 78222 
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EJECT 

fNAMS GETREPLY 

^PURPOSE GETkFFLY LOCATES AND RETURNS THE HIGHEST PRIORITY REPLY TO 
* A TASK. THE PRIORITY STRUCTURE CORRESPONDS TO THE TASK ID 
* 
SENTRY 

•v 

*EXIT 
* 

* 

GETREPLY = * 

A6 LEfiSAVER 

A7 CTID,A0 

AG AS*A7 

A7 SAVER 

ftS AS+A7 ADDRESS OF SAVE AREA FOR ORIGIN TASK 



A0 = FINDING FIND INDICATOR 

= NO FIND 

1 = FIND 

A2 = ID OF TASK WHERE REPLY FOUND 

51 = OUTPUT+0 

52 = OUTPUT+l: 



SAVE THE REGISTERS CLEARING THOSE ALREADY DESTROYED 



SAVEA1.A6 Al 
SAVEA2.AS A2 
SAVE A3, AS A3 
SAVEA4,A6 A4 
SAVEA5,A6 AS 
SAVES0,A6 S0 
SAVES1.A6 SI 
SAVES2.AG S2 
SAVES3,A6 S3 
SAVGS4,A6 S4- 
SAVESS.AS SS 
SAVES5,AS S3 
SAVES? > AS S7 
A7 B00 
SAVERT,A6 A7 
SS 
SAVEA7,AS SS 
SAVFA0,A6 SS 
SAVEA6,A6 SS 
A3 AS 



ASSUME NO FIND- WILL OCCUR 



CALCULATE CHAIN CONTROL ADDRESS 

CHAIN CONTROL = CURRENT TASK ID + CHAIN CONTROL BASE 
OF CHAIN CONTROL HEADER 



LENGTH 



AS 
Al 
AS 
AS 

AS 
Ac!: 
A4 
AS 



CMCC 

CTID,A0 

AS+A1 

L4SCMCC 

AS+rS 



MAXTN 

LE9CMCC 



A0255. 
A3255 . 
A02S5. 
A02S5. 
A02S5 . 
A0255, 
A0255. 
A02S5. 
A02S5. 
A02S5. 
A02S5. 
A0255. 
A02S5. 
A02S5. 
A0255. 
A02S5. 
A0255. 
A02S5. 
A0255. 
A0255. 
A0255. 
A025S . 
A0255. 
A02S5 . 
A0255. 
A0255. 
A0255. 
A0255. 
A0255. 
A0255. 
A0255. 
A02S5. 
A02S5 . 
A0255 . 
A02S5 . 
A0255. 
A025S. 
A0255. 
A02S5. 
A0255. 
A02S5. 
A0255. 
A0255. 
A02S5. 
A0255. 
A0255 . 
A0255. 
A02S5. 
A02S5. 
A0255. 
A0255 . 
A0255 . 
A02S5. 
A02S5. 
A025S. 
A02S5. 
A02SS . 
A02S5. 
A0255 . 
A0255. 
A02S5 . 
A0255 . 



310 
311 
312 
313 
31^ 
315 
316 
317 
SIS 
313 
320 
321 
322 
323 
324 
325 
82S 
327 
323 

330 
S3I 
332 
333 

-334 
335 



337 

333 
839 

340 
341 
342 
343 
344 
345 
34S 
347 
343 
343 
350 
351 
352 
353 
354 
355 
355 
357 
353 
353 
3S0 
3S1 
3S2 
3S3 
3S4 
365 
3SS 
387 
863 
363 
37fj 
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GETREP10 = 



GET, SI 

SO 

JSZ 

A7 

SO 

JSN 



33&S/,CCHEAD,AS 
SI 

GETREP20 

SI ADDRESS OT THE CMOO 

CMOUTl . A7 

GETREP30 JUMP IF A REPLY EXISTS 



GETREP20 = 



THERE IS MO REPLY FROM THIS TASK. UPDATE TO NEXT TASK 



AS 
A2 
AO 
JAN 



* 

A3+A5 

A2+1 

A4--A2 

GETPEP10 



NEXT CHAIN CONTROL 
NEXT TASK ID 



GETREP30 = 



JUMP IF ALL CHAINS NOT EXAMINED 

AT THIS POINT THE SEARCH IS COMPLETE WITH NO REPLY FOUND 

J GETRFR4.0 

SAVEA2.A3 A2 SAVE TASK ID OF FIND 

A0 i 
SAVEAO.A3 A3 

51 CMOUT0,A7 

52 CMOUTl, A7 
SAVES1.A3 SI 
SAVES2.A3 S2 
R UNCHAIN 
AS SAVERT.A3 
BOO AS 
ERRAN 
AS 
R 
A5 
BOO 
AO 
ERRAN. 



CMPOOL 

MEMDE 

SAVERT.A3 

A5 

AS 



MOVE THE REPLY OUT OF THE CMOD 
REMOVE IT FROM THE CHAIN 
RESTORE BOO FOR TRACE ENTRIES 



DEALLOCATE THE MEMORY 
RESTORE BOO FOR TRACE ENTRIES 



* 
* 
* 
GETREP40 



RESTORE THE REGISTERS AND EXIT 



AG 

AO 

Al 

A2 

A3 

A4. 

AS 

SO 

SI 

S2 

S3 

S4 

S5 

SS 

S7 

A7 

BOO 

A7 

AS 

J 



X 

A3 

SAVEAO,AG 

SAVEA1 , AiS 

SAVEA2,AS 

SAVEA3.AS 

SAVEA4.AS 

SAVEA5,AS 

SAVES0.AS 

SAVES1 , AG 

SAVES2.A6 

SAVES3.AS 

SAVES4.A8 

SAVES5,AS 

SAVESS, AS 

SAVES7.A6 

SAVERT.A6 

A7 

SAVEA7,AS 

SAVE AS. AS 

BOO 



A02S5. 

A0255 . 

A0255. 

A0255 . 

A02S5. 

A02S5. 

A02S5, 

A0255 

A02S5, 

A02S5 

A0255 

A0255. 

A02S5, 

A02S5 

A0255. 

A02S5 

A0255, 

A0255 . 

A02S5 

A0255. 

A0255 

A0255 

A0255 

A0255 

A0255 . 

A0255. 

A02S5. 

A02SS . 

A02S5 . 

A0255. 

A02S5. 

A02S5. 

A02S5. 

A02S5. 

A0255. 

A02SS. 

A0255. 

A0255. 

A0255. 

A02G5 . 

A0255. 

A0255 . 

A0255 . 

Att255. 

A0255. 

A0255. 

A02S5. 

A0255. 

A02S5 . 

A0255. 

A0255. 

A0255 . 

A025S. 

A02SS. 

A0255 . 

A0255. 

A0255. 

A0255 . 

A0255. 

A0253. 

A02S5 . 



372 
373 
074 
373 
87S 

SSO 
3S1 
382 
333 
384 
3SS 
33S 
.95*7 



389 
390 
331. 
392 
833 
394. 
395 



397 
893 
399 
300 
301 

see 

303 
904. 



907 
308 
300 
910 
311 
912 
313 
314. 
315 
916 
317 
312 
313 
320 
321 
322 
323 
324- 
325 
32S 
-^27 
323 
323 
930 
331 
332 
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TSKREQ QUEUES A REQUEST TO ANOTHER TASK. 

TSKREQ IS CALLED VIA A RETURN JUMP WITH THE CALLER 
PROVIDING THE FOLLOWING: 



INPUT REGISTERS: (a2) = ID OF REQUESTED TASK 

(sl) = INPUT+O 
(S2) 



= INPUT+O -i 

= INPUT+1 / REQUEST 



OUTPUT REGISTERS: (sl) = OUTPUT+O i 

(S2) - OUTPUT+1 REPLY 



ONCE THE REQUEST HAS BEEN PROCESSED , THE CALLER MAY 
EXAMINE ITS S1,S2 REGISTERS FOR A REPLY. CONVENTIONALLY, 
Sl=ZERO WHEN THERE IS NO ERROR, OTHERWISE S1=ERR CODE. 
S2=THE CALLING TASKS INPUT+O REGISTER (Sl) INFORMATION. 
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STP 
COMMON 



SUBROUTINES 



CAL 1.03 73282 



10/09/78 12:35:17 
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E. -'FCT 

** 

::KNAME TSKREQ 

X 

*PURROSE TSK^EQ QUEUES A REQUEST FOR PROCESSING TO ANOTHER TASK. THE 

* ORIGINATING TASK IS SUSPENDED UNTIL THE DESTINATION TASK HAS 

X COMPLETED PROCESSING. 

% 

SENTRY 

X 

X 

X 

*EXIT 

X 

X 

XX 



A2 
Si 
S2 

SI 
<5> 



DESTINATION TASK ID 

INPUT+O 

INPUT+1 

OUTPUT -»-0 
OUTP» IT+1 



TSKRSQ 


rz 




* 




A3 




LE'SSAVER 




A4 




CT ID, A0 




A3 




A3*A4 




A4 




SAVER 




A3 




A3+A4 


* 








X 


SAVE 


THE 


REGISTERS 


X 


BEES 


DESTROYED 


X 









ADDRESS OF SAVE AREA FOR ORIGIN TASK 



SAVEA0.A3 


A3 


SAVEA1,A3 


Al 


SAVEA2,A3 


A2 


SAVEA5,A3 


AS 


SAVEA6,A3 


AG 


SAVEA7,A3 


A7 


SAVES©* A3 


SO 


SAVES1,A3 


SI 


SAVESZ.A3 


S2 


SAVES3, A3 


S3 


SAVES*, A3 


S4 


SAVES5,A3 


SS 


SAV2SS,A3 


SS 


SAVES7,A3 


S7 


SS 





SAVEA3,A3 


SS 


SAVZA4,A3 


SS 


A4 


B00 


SA VERT, A3 


A4 


SO 


SI 


CXJDC7 




TSKREQ10 = 


X 


A6 


CMPOOL 


A7 


CMSIZE 


R 


MEMAL 


AS 


SAVERT,A3 


E00 


A3 



SAVE Tr 1 ^ RETURN ADDRESS 
ERROR IF INPUT&i = 

MEMORY POOL NUMBER 

NUMBER OF WORD REQUIRED 

ALLOCATE A CMOD 

RESTORE BOO FOR TRACE ENTRIES 



CHECK STATUS RETURNED FROM *E>tAL 



AO 

JAI 

A7 

AO 

re'? 



AS 

T3KREQ20 
3 
#3— A7 



JU"'P IF GOOD RETURN 



S0O3 . 7° 

A02S5 . 
A0cS5.lL-2 
A0255 . 133 
A0255. 134 
A0255 . 135 
A02S5.19S 
A025S . 137 
A0255 . 138 
A0255.133 



201 
202 
203 
204 
205 
206 
207 
203 
20S 
210 
211 
212 
213 
214 
213 
218 
217 
218 



221 
222 

224 
22S 

22S 

223 
223 
230 

231 
232 
233 

224 

23S 

238 

5 

3 

237 

233 

233 

240 

241 

242 

243 

244 

.■" " — i 



2453 

7/IO 



A0255. 
A02S5. 
A0255. 
A0255. 
A0255. 
A0255. 
A0255. 
A0255. 
A02S5. 
A0255 . 
A02S5 . 
A0255. 
A0255 . 
A02S5. 
A0255. 
A0255. 
A0E55. 
A0255. 
A0255. 
A0255. 
A0255. 
A02S5. 
A0255. 
A0255. 
A0255. 
A0255. 
A02S5. 
A0255 . 
A0255. 
A0255. 
A0255.. 
A0255 . 
A0255. 
A025S. 
A02S3. 
A0255 . 
B0432 . 

P0492 

A02S5. 

A0255. 

A0255. 

A025S . 

A0255. 

A02S3. 

A0255 . 

A0253 . 

A0255. 

A0255 . 

A0255. 

A02S3. 

A0253 . 

A02S5 . 



250 
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AT THIS POINT THERE IS NO MEMORY AVAILABLE. 
TRY AGAIN LATER 



SUSPEND AND 



S7 
EX 
R 
J 



SUSP 

ERROR0 
TSKREQ10 



A CMOD HAS BEEN ALLOCATED PUT THE INPUT MESSAGE IN THE CMOD 



TSKREQE0 = 



* 



51 SAVES1.A3 

52 SAVES2, A3 
CMIN®,A7 SI 
CMIN1,A7 S2 

POST 12.31.S2 

CALCULATE THE ADDRESS OF THE CHAIN CONTROL HEADER 
CHAIN CONTROL HEADER = DESTINATION TASK *D * LENGTH OF CHAIN 

CONTROL ENTRY t BASE OF CHAIN CONTROL 



AS 
A4 
A5 
A4 
A5 



SAVEA2,A3 

LE<§CMCC 

A4XA5 

CMCC 

A4+A5 



CHAIN CONTROL HEADER ADDRESS 



CALCULATE CHAIN CONTROL WORD ADDRESS 

CHAIN CONTROL WORD = CHAIN CONTROL HEADER. + LENGTH OF CHAIN 

CONTRO ; _ HEADER +• CURRENT TASK ID 



A6 




LHSCMCC 






AS 




AS+AS 






A4 




CTID,A© 






AS 




AS+A4 




CHAIN CONTROL UORD ADDRESS 


TSKREQ30 - 




X 






Al 




1 






STPL 


.K,A0 


Al 




LOCK OUT INTERRUPTS 


GET. 


SI 


SS&S7,CCTL, 


,A5 




GET, 


S2 


S3&S7,CCTM, 


,A5 




SO 




S2 






ERRSZ 






ERROR IF QUEUE MAX IS ZERO 


SO 




S1-S2 






JSZ 




TSKPEQ70 




JUMP IF QUEUE AT LIMIT 


S4 




1 






SI 




S1+S4 






GET, 


S2 


SS2lS7.CCQL- 


.AS 




GET, 


S3 


ss^s?,o:qm 


,AS 




SO 




S3 






EPRS2 








SO 




S2-S3 






JSZ 




TSKREQ70 




JUMP IF QUEUE AT LIMIT 


S2 




S2+S4 






PUT, 


• SI 


SSSS7,CCTL. 


,A5 


UPDATE QUEUE COUNTS 


PUT. 


-S2 


S5&S7.CCQL. 


,AS 




R 




CHAR! 






A5 




SAVERT. A3 




RESTORE BOO FOR TRACE ENTRIES 


BOO 




A3 






Al 











STPLK,A0 


Al 




ENABLE INTERRUPTS 



A02S5. 
A02S5. 
A0255. 
A0255. 
A0255. 
A0255. 
A0255. 
A0255. 
A0255. 
A02S5. 
A02S5. 
A02S5. 
A0255. 
A0255. 
A0255. 
A0255. 
A0255. 



AC235 
A0255 
A0255 
A02S5 
A0255 
A0255 
A0255 



A0255 
A0255 
A0255 
A0255 
A0255 
A0255 
A0255 
A0255 



2S1 
252 

?53 
254 
255 
2SS 
257 
258 
2S3 
260 
261 
262 
263 
264. 
265 
266 
267 
262 
269 
270 
271 
272 
273 
274 
275 
276 
277 
273 
279 
230 
281 
282 
283 
234 



A0255. 
A0255 . 

A0255 . 
A0255. 
A0255. 
A0255 . 
A0255 . 
A0255. 
A0255. 
Af->255 . 
A0255. 
A0255. 
A0255. 

A0255 . 
A0255. 
A0255 . 
A0255 . 
A02S5. 
A02S5 . 
A0255. 
A0255. 
A0255 . 
A0235 . 
A02S5 . 



236 
227 

283 
239 
290 
291 
232 
293 
234 
295 
236 
297 
293 
299 
300 
301 
302 
303 
304 
305 
303 
307 
303 
309 
310 
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X 

% 

X 
TSKREQ40 = 



THE REQUEST HAS BEEN QUEUED TO THE DESTINATION TASK READY THE 
TASK AND SUSPEND UNTIL A RE-LY IS RECEIVED 



TSKRE 



SG 
S7 

EX 
R 

SI 
SE 
SO 
JSN 



* 

SAVEA2.A3 

RTSS 

ERRORS 

X 

CMOUT0.A7 

CM0UT1,A7 

S2 

TSKREQ60 



THE DESTINATION TASK DID NOT REACTIVATE ME 



S7 




SUSP 


EX 






R 




erroro 


J 




TSKREQ50 


TSKREQ60 = 




X 


SAVES1 , 


.A3 


SI 


SAVES2- 


,A3 


S2 


POST 




12.S1.S2 


R 




UNCHAIN 


A5 




SAVERT.A3 


BOO 




AS 


ERRAN 






AG 




CMPQOL 


R 




MEMDE 


A5 




SAVERT,A3 


BOO 




AS 


A0 




AS 


ERRAN 







UNCHAIN THE CMOD 

RESTORE BOO RDR TRACE ENTRIES 



RELEASE THE CMOD MEMORY 
RESTORE BOO FOR TRACE ENTRIES 
STATUS CHECK- 



RESTORE THE REGISTERS AND EXIT 



AO 

Al 

A2 

A5 

A6 

A7 

SO 

SI 

S2 

S3 

S4 

S5 

SC 

S7 

A4 

BOO 

A4 

A3 

J 



TSKREQ70 

* 

X 

X 

X 



SAVEA0,A3 

SAVEA1 , A3 

3AVEA2. A3 

SAVEA5,A3 

SAVEA6, A3 

SAVEA7,A3 

SAVESO, A3 

SAVES1.A3 

SAVES2.A3 

SAVES3.A3 

SAVES4.A3 

SAVES5.A3 

SAVESS,A3 

SAVES7.A3 

SAVERT,A3 

A4 

SAVEA4,A3 

SAVEA3.A3 

BOO 

X 



THE QUEUE FOR THE DESTINATION TASK IS AT ITS LIMIT THE 
REQUESTOR WILL HAVE TO WAIT 



Al 

STPLK,AO 

S7 

EX 

R 

J 





Al 

SUSP 

ERRORO 
TSKREQ30 



RELEASE INTERRUPT LOCKOUT 



H0255. 

A0255 . 

A02S5. 

A02S5. 

A0255. 

A0255. 

A02S5. 

A0255 

A02S5 

A0255. 

A02S5. 

A02S5. 



A0255 
A02S5 
A02S5 
A0255 
A0255. 
A02SS 
A02S5 
A02S5, 
A02SS. 
A0255 
A0255. 
A02S5. 
A0255, 



HV 

A025S 

A0255 

A02S5 

A0255 

A0255 

A0255 

A0255. 

A02S5. 

A02SS. 

A02S5 

A02S5. 

A02S5. 

A02S5 

A0255 

A02S5 

A0255. 

A0255. 

A02S5. 

A02S5. 

A0255. 

A0255. 

A0255. 

A02ES. 

A02S5. 

A02S5. 

A02S5 . 

A0255 . 

A0255 . 

A0255 . 

A0255. 

A0255 . 

A025S. 

A0255 . 

A0255 . 

A0255 . 

A02S5 

A02S5 

A0255 

A0255 

A02S5. 

A0255 . 



312 
313 
314 
315 
3:1.6 
317 

3 

320 
321 
322 
323 
.324 
32S 
326 
327 
322 
329 
330 
331 
332 
333 
334 
335 
336 
337 
332 
332 
340 
341 

343 

344 
345 

y 

J4S 
349 
350 
351 
"352 
353 
354 
355 
356 
357 
353 
353 
360 
381 
262 
393 
364. 
3S3 
3SS 
367 
363 
363 
370 
371 
372 

-»■— 

6 
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USERTOSTP CALLS 



8 Advance Job 

I Abort Job 

Get Current Date 

8 Get Current Time 

• Enter Logfile Message 

§ Dataset Recall 

8 Terminate Job 

8 Set Sense Switch 

8 Open Dataset 

8 Request Memory 

8 Close Dataset 

8 Create DNT 

8 Set Exchange Package Mode 

8 Get Next Control Statement 

8 Load Binary Dataset 

8 Return Dataset 

8 Permanent Dataset Management Request 

8 Read Disc Circular 

8 Write Disc Circular 



8 Get System Revision Numbers 

8 Dispose Dataset 

8 Get Current Julian Date 

8 Return Accumulated CPU Time 

8 Return Accounting Information 

8 Set P register & Suspend User 

8 Clear Sense Switch 

8 Test Sense Switch 

8 Delay Job 



A USER COMMUNICATES WITH STP THROUGH MACRO CALLS. 
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STARTUP (Z) 



TASK PROCESSORS 



CURRENT TASKS ARE: 



CRAY-OS STARTUP 
STATION CALL PROCESSOR 
DISK QUEUE MANAGER 
PERMANENT DATASET MANAGER 
JOB CLASS MANAGER 
JOB SCHEDULER 
EXCHANGE PACKAGE PROCESSOR 
MESSAGE PROCESSOR 
MEMORY ERROR PROCESSOR 
DISK ERROR CORRECTION 
SYSTEM PERFORMANCE MONITOR 

OVERLAY MANAGER 
TAPE QUEUE MANAGER 



JLL 



CRAY-OS STARTUP 

LOADS CRAY-OS OPERATING SYSTEM (COS) INTO MEMORY. 
BEGINS EXECUTION OF THE OPERATING SYSTEM. 
GENERATES OR RECOVERS SYSTEM TABLES. 
THREE METHODS OF STARTUP. 



INSTALL- INITIATION OF COS THE FIRST TIME 

DEADSTART-CONTINUATION OF COS FOLLOWING A NORMAL 
SYSTEM SHUTDOWN 

RESTART-CONTINUATION OF COS FOLLOWING A SYSTEM 
INTERRUPTION. 



/i * 



INSTALL 



LOADS THE CRAY-1 OPERATING SYSTEM (COS) INTO CRAY-1 MEMORY. 

CRAY-1 MASS STORAGE IS INITIALIZED FOR THE VERY FIRST TIME. 

A DEVICE LABEL (DVD IS WRITTEN ON EACH DISK UNIT. 

SPACE IS ZEROED AND RESERVED ON THE MASTER DEVICE 
SUFFICIENT TO HOLD CRAY-1 MEMORY SIZE. 

A ROLL JOB INDEX DATASET IS INITIALIZED ($ROLL). 



SYSTEM TABLES ARE INITIALIZED FOR THE VERY FIRST TIME. 

REFLECT HOW MUCH USEABLE DISK SPACE IS AVAILABLE (DRT). 

CREATES A DISK DATASET CATALOG (DSC) AND WRITES THE 
DSC TO THE MASTER DEVICE. 

MAKES ENTRIES IN THE DSC FOR $ROLL 




MASTER 
DEVICE 




DATASETS 




DEVICE 




DATASETS 




DEVICE 



Mass Storage Organization 



Ihl 



SYSTEM DIRECTORY INITIALIZATION 



THE SYSTEM DIRECTORY (SDR) MUST BE INITIALIZED AFTER ANY 
INSTALL (AUTOMATIC IN DEADSTART AND RESTART) . 



INITIALIZATION OCCURS THROUGH SUBMISSION OF A HIGH PRIORITY 
JOB. 



THE JOB'S PRIORITY SHOULD ENABLE IT TO EXECUTE BEFORE ANY 
OTHER JOB IN THE INPUT QUEUE. 



ONCE A DATASET NAME IS ENTERED IN THE SDR IT IS ACCESSABLE TO 
OTHER JOBS. 



AN 'ACCESS' CONTROL STATEMENT WITH PARAMETER 'ENTER' IS 
SPECIFIED FOR EACH DATASET BEING ENTERED IN THE SDR. 



SAMPLE JOB: 



J0B,JN=SYSDIR,T=2,M=20,P=15. 

*. SDR initialization job 

ACCESS, ENTER, DN=AUDIT. . 
ACCESS, ENTER, DN=BUILD. 
ACCESS, ENTER, DN=CAL. 
ACCESS, ENTER, DN=CFT. 
ACCESS , ENTER , DN=COMPARE . 
ACCESS, ENTER, DN=C0PYD. 
ACCESS, ENTER, DN=C0PYF. 
ACCESS, ENTER, DN=C0PYR. 
ACCESS , ENTER ,DN=DSDUMP . 
ACCESS, ENTER, DN=0UMP. 
ACCESS, ENTER, DN=EXTRACT. 
ACCESS,ENTER,DN=FDUMP. 
ACCESS, ENTER, DN=LDR. 
ACCESS , ENTER , DN=PDSDUMP . 



ACCESS, ENTER, DN=PDSLOAD, 
ACCESS, ENTER, DN=SKIPD. 
ACCESS, ENTER, DN=SKIPF. 
ACCESS, ENTER, DN=SKIPR. 
ACCESS, ENTER, DN=UNB. 
ACCESS , ENTER , DN=UPDATE . 
ACCESS, ENTER, DN=WRITEDS. 
(EOF) 



DEADSTART 



• CONTINUES THE CRAY-1 OPERATING SYSTEM (COS) FOLLOWING A 
NORMAL SYSTEM SHUTDOWN. 



• DELETES DSC ENTRIES FOR INPUT AND OUTPUT DATASETS. (SDT) 



PRESERVES DSC ENTRIES FOR PERMANENT DATASETS. 



PRESERVES DISK SPACE OCCUPIED BY THE SYSTEM DUMP. 



COPIES SYSTEM DUMP TO ANOTHER AREA IF USED AND MAKES IT 
A PERMANENT DATASET, 



REBUILDS THE SYSTEM DIRECTORY FROM DISK IF DESIRED. 



4,9 



RESTART 



CONTINUES THE CRAY-1 OPERATING SYSTEM (COS) FOLLOWING Al 
ABNORMAL SYSTEM INTERRUPTION, 



PRESERVES DSC ENTRIES FOR INPUT AND OUTPUT DATASETS, 



PRESERVES DSC ENTRIES FOR PERMANENT DATASETS. 



PRESERVES DISK SPACE OCCUPIED BY THE SYSTEM DUMP, 



COPIES SYSTEM DUMP TO ANOTHER AREA IF USED AND MAKES IT 
A PERMANENT DATASET. 



• PRESERVES ROLLED JOBS AND ASSOCIATED DATASETS IF REQUIRED. 



REBUILDS THE SYSTEM DIRECTORY FROM DISK IF DESIRED, 
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RECOVERY OF THE SYSTEM DIRECTORY DURING A RESTART 



• AN ACCESS OF THE $SDR PERMANENT DATASET IS REQUESTED. 



• IF $SDR DOES NOT EXIST THEN THE SYSTEM CREATES $SDR AS A 
PERMANENT DATASET. 



IF $SDR EXISTS A DATSET NAME TABLE (DNT) IS CREATED AND THE 
DATASET IS ACCESSED. 



• IF THE *SDR COMMAND IS IN THE RESTART PARAMETER FILE THE 
PREVIOUS $SDR DATASET IS NOT RECOVERED AND A NEW EDITION 
OF $SDR IS CREATED AS A PERMANENT DATASET, 



• ONCE INITIALIZATION OF THE $SDR DATASET IS COMPLETE, 
ADDITIONAL ENTRIES MAY BE ADDED TO THE SYSTEM DIRECTORY 
AND THE $SDR DATASET, 
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RECOVERY OF ROLLED JOBS DURING A RESTART 

A VALIDATION OF THE ROLLED JOB INDEX TABLE ENTRY FOR A JOB 
ENSURES THE JOB IS NOT MARKED IRRECOVERABLE AND THE JOB RE- 
SIDES ON AN AVAILABLE DEVICE. 

THE JOBS JOB TABLE AREA (JTA) IS READ INTO MEMORY AND THE 
JOBS DATS ARE VERIFIED AS ARE ALL DATS WITHIN THE SYSTEM. 

IF A JOB'S DAT IS INVALID AND THE JOB IS RERUNNABLE THE SYSTEM 
CLEARS THE INDEX ENTRY AND THE JOB REMAINS ON THE INPUT QUEUE 
IN THE SYSTEM DATASET TABLE (SDT) . 

IF ALL DATS FOR A JOB ARE VALID THE SYSTEM SETS THE DEVICE 
RESERVATION TABLE (DRT) ENTRIES FOR THE DATS. 



DATASET ALLOCATION TABLE (DAT) VERIFICATION 

A DATASET ALLOCATION TABLE (DAT) MUST RESIDE ENTIRELY IN THE 
SYSTEM FOR SYSTEM DATASETS, AND WITHIN A JOBS JOB TABLE AREA 
(JTA) FOR A JOB. 

THE DAT MUST POINT TO THE CORRECT JOB EXECUTION TABLE (JXT) 
ENTRY FOR A JOB (LOCAL) DATASET. 

THE DEVICES USED BY THE DATASETS MUST BE AVAILABLE. 

FOR A DAT THE LOGICAL TRACK ADDRESSES MUST NOT HAVE THE 
CORRESPONDING BIT SET IN THE DEVICE RESERVATION TABLE (DRT). 

WHEN THE LAST LOGICAL TRACK ADDRESS IS VERIFIED AGAINST THE 
DRT BIT THE REMAINING ADDRESS COUNT MUST BE ZERO. 

DAT VERIFICATION OCCURS IN TWO PASSES 

FIRST PASS SCANS FOR ERRORS AS ABOVE 
SECOND PASS SETS THE DRT BITS 

PERMANENT DATASETS ARE FURTHER VERIFIED AGAINST THE DISK 
RESIDENT DATASET CATALOG (DSC) AND EACH DATASET DAT IS 
COMPARED AGAINST THE DISK COPY. 
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STATION CALL PROCESSOR (SCP) 



STATION CALL PROCESSOR (SCP) 



PROVIDES COMMUNICATIONS WITH FRONT-END SYSTEMS. 



MANAGES I/O TRANSMISSION POOLS CREATED AT STARTUP. 



PROVIDES FOR OPERATOR GUIDANCE. 



CHANNEL DISCIPLINE IS TWO WAY ALTERNATE 



INDEPENDENT OF FRONT-END TYPE. 



MULTIPLEXES STREAMS (8 INPUT AND 8 OUTPUT) . 



5.1 



GENERAL INTERFACE PROTOCOL 



• Each Message is headed by a LINK CONTROL PACKAGE 



SlIBSEGMENT SIZE VARIES WITH FRONT-END 



TRANSMISSIOMj 




> 



TRANSMISSION' 



SlIBSEGMENT-^ 



Transmission- 




Transmission^ 



SUBSEGMENT3 



> Message 



> Segment 



Transmission 



n 



Subsegment n _2 



j 



Transmission 




- —OPTIONAL 



r rr 



LINK CONTROL PACKAGE 



• EACH LCP CONSISTS OF SIX 64-BIT WORDS 



• LCP CONTAINS: 

SOURCE MAINFRAME ID (SID) 

DESTINATION MAINFRAME ID (DID) 

NO, OF SUBSEGMENTS (NSSG) 

MESSAGE NUMBER (MN) 

MESSAGE CODE (MO 

MESSAGE SUB CODE (MSC) 

STREAM NO. (STN) 

SEGMENT NUMBER (SGN) 

SEGMENT LENGTH (SGBC) 

STREAM CONTROL BYTES (ISCB, OSCB) 








8 


15 


2»» 


32 


^0 


*f8 


56 83 





DID 


SID 


NSSG 


MN 


MC 


MSC 


1 


STN 


SGN 


SGQC 


2 


y///////////^^^^^ 


3 


ISCBi 


!SCB 2 


ISCB 3 


ISCB4 | ISCB5 


ISCB 6 


ISCB 7 


ISCB 3 


4 


OSCBi 


0SCB 2 


OSCB3 


OSCB^ j 0SCB 5 


OSCB s 


0SCB 7 


OSCB3 


5 


^^^^^ 



r 
, D 



Message codes 







Sen 


der 




Stream 


Code 


Function 


Front-end 


CRAY-1 


Segment 


Requ i red 


001 


Logon 


X 




X 




002 


Re log 


X++ 








003 


Logoff 


X 








004 


Start 




X 


X 




005 


Restart 




X 






006 


Dataset header 


X 


X 


X 


X 


007 


Dataset segment 


X 


X 


X 


X 


Oil 


Control 


X 


X 






012 


Message error 


X 


X 






013 


Dataset transfer request 


X++ 


X 


X 




014 


Dataset transfer reply 


X 


X 


X 




015 


Enter logfile request 


X 




X 




016 


Enter logfile reply 




X 


X 




020 


Logfile information request 


x ++ 




X 




021 


Job status request 


x ++ 




X 




022 


System status request 


x t+ 




X 




023 


Dataset status request 


X' ' 




X 




024 


Link status request 


x tf 




X 




025 


Mass storage status request 


x ++ 




X 




026 


Operator function request 


x f ' 




X 




027 


Debug function request 


x ++ 




X 




030 


Logfile information reply 




X 


X 




031 


Job status reply 




X 


X 




032 


System status reply 




X 


X 




033 


Dataset status reply 




X 


X 




034 


Link status reply 




X 


X 




035 


Mass storage status reply 




X 


X 




036 


Operator function reply 




X 


X 




037 


Debug function reply 




X 


X 




040 


Diagnostic echo request 


x t+ 


X 


X 




041 


Diaqnostic echo reply 


x tf 


X 


X 





tt 



Optional; front end not required to send 
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STREAM CONTROL BYTES 



8 INPUT AND 8 OUTPUT STREAMS 



ALTHOUGH EACH MESSAGE IS ASSIGNED TO ONLY ONE STREAM, 

THE LCP MUST CARRY STREAM CONTROL BYTES FOR ALL 16 STREAMS. 



Octal 
Code 


Mnemonic 


Request/Response 


Sender 


Receiver 


OO 


IDL 


Idle 


X 


X 


01 


RTS 


Request to send 


X 




02 


PTR 


Preparing to receive 




X 


03 


SND 


Sending 


X 




04 


RCV 


Receiving 




X 


05 


SUS 


Suspend 




X 


06 


END 


End dataset 


X 




07 


SVG 


Saving dataset 




X 


10 


SVD 


Dataset saved 




X 


11 


PPN 


Postpone 


X 


X 


12 


CAN 


Cancel 


X 


X 


13 


MCI 


Master clear 


X 


X 
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RECEIVER SC8 RESPONSE 








IDL 


PTR 


RCV 


SUS 


SVG 


SVD 


PPN 


CAN 




IDL 


N 


















RTS 




N 


C 


C 






A 




LU 
CO 

CD 
O 
CO 


SND 






N 


N 






A 


A 


LU 
O 

Z 
LU 


END 










N 


C 


A 


A 


CO 


PPN 


C 


















CAN 


C 

















N » Normal receiver SCB response 

C =» Normal receiver SCB response which requires 
change in sender SCB 

A » Abnormal receiver SCB response 



SENDER SCB RESPONSE 







IDL 


RTS 


SND 


END 


PPN 


CAN 










IDL 


N 


C 












PTR 




N 












RCV 






N 


C 


A 


A 


h- 
















LU 
















CO 

CD 
O 


SUS 






N 


C 


A 


A 


CO 
















en 

LU 

> 


SVG 








N 






LU 
O 

LU 


SVD 


C 














PPN 


C 














CAN 


C 

1 













N = Normal sender SCB response 

C = Normal sender SC3 response which 
requires change in receiver SCB 

A = Abnormal sender SCB response 
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BASIC STREAM FLOW 

• FRONT-END IS LOGGED ON 

• COMMUNICATIONS IN AN IDLE STATE 

• FRONT-END SENDS RTS(Ol) TO THE CRAY-1 

• CRAY-1 SENDS RCV (04) TO THE FRONT END. 

• FRONT-END SENDS SND (03) TO THE CRAY-1 ALONG WITH 
THE JOB DATASET 

• CRAY-1 SENDS RCV (04) TO THE FRONT-END WHILE DECODING 
THE MESSAGE AND SAVING THE JOB DATASET 

• FRONT-END SENDS END (06) TO THE CRAY-1 UNTIL CRAY-1 
HAS SAVED THE DATASET. 

• CRAY-1 SENDS SVD (10) TO THE FRONT-END ONCE DATASET 
HAS BEEN SAVED. 

• FRONT-END AND CRAY-1 THEN KEEP COMMUNICATIONS OPEN 
BY ALTERNATELY SENDING AND RECEIVING IDL(OO) . 
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OOlDL 



OOlDL <■ 



01rts 



® 

® 



© 



OOlDL 



® 



PPM 11 



® 




04Rcvi 
05susf 



(b 



02ptr «■ 




x ican1 2 
7 rppN-j-i 



NOTE: 



13 



PPN 
CAN 



,11 



03s.ND 



fe 




06END 




SVD f1 



CAN 



7sv( 



® 



* SENDER 



* * RECEIVER 

A MCL SCB IS A LEGAL REQUEST OR RESPONSE AT AMY T 
THE ONLY LEGAL REPLY TO MCL IS IDL. 

STREAM CONTROL BYTE FLOW 
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E 



I ME. 



SCP JOB STREAM FLOW 



• EXAMINES THE BATASET HEADER MESSAGE AND DETERMINES THE 

DATASET IS A JOB DATASET. 



• BUILDS DISK BUFFERS FROM STATION BUFFERS AND WHEN BUFFERS 
ARE FULL HAS THEM WRITTEN TO DISK. 

• 'CRACKS' THE JOB CARD ASSIGNING DEFAULTS WHEN APPROPRIATE. 

• MAKES APPROPRIATE ENTRIES IN THE JOB QUEUE (SYSTEM DATASET 
TABLE (SDT) ), SUCH AS: 

DATASET NAME 

JOB NAME AND PRIORITY 

SOURCE AND DESTINATION ID 

DISPOSITION CODE SET TO JOB DATASET (IN) 



HAS THE DATASET MADE PERMANENT FOR THE LIFE OF THE JOB. (DSC) 
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V 



EXECUTIVE 



STP 



SCP 




SCP POOL 



V7 



DISK 
BUFFER 



/f 




FRONT 
END 



SEGMENT 
BUFFER 



iaMEM 



SCP DATA TRANSFER 
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EXEC 
R005 



y, 



Sr' 



A 



I 



INITIALIZE 

CHT ENTRIES 

FOR FRONT- END 



i 



INITIALIZE 

LIT ENTRY 

FOR NEW O/I PAIR 




LSTART 



SET UP OUTPUT LCP. 

INCREMENT MESSAGE, 

SEGMENT COUNTS 



i 



LRETRY 



SET OUTPUT 
ACTIVE IN 
LIT ENTRY 



i 



SET INTERRUPT 

ADDRESS 

(WLCP) 



i 



SET CL FROM 
THE LIT ENTRY 



I 



SET CA FROM 
THE LIT ENTRY 



LITRY 



SET INPUT ACTIVE 
IN LIT ENTRY 



T 



SET INTERRUPT 

ADDRESS 

(RLCP) 



I 



SET CL FROM 
THE LIT ENTRY 



I 



SET CA FROM 
THE LIT ENTRY 



I 



EXEC 




RLCP15 



CLEAR ANY OUTPUT 
IN PROGRESS 



I 



STATION IS 
NOW THE MASTER 





ERR PROC 



OBTAIN LINK ID 
FROM LXT TABLE 



RLCP55 



i 



SET UP FOR 

INPUT OF FIRST 

SUBSEGMENT 



i 



SET INTERRUPT 
ADDRESS 
(RSSEG) 



RLCP65 



i 



SET CL FROM 
THE LIT ENTRY 



i 



ENA 




i 



LIRCVR 
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i 




SET 


CA 


FROM 


THE 


LIT 


ENTRY 




LIRCVR 



LIRCVR 




INCREMENT SEGMENT 

WORD COUNT 

IN LIT ENTRY 




CLEAR 
INPUT ACTIVE 
IN LIT ENTRY 



i 



GET TASK 

PARAMETER WORD 

FROM THE CHT 



i 



CLEAR TASK 

SUSPEND BIT 

IN STT 



SET RE-READY 

FLAG FOR 
CALLED TASK 



ENA 




RSSEG20 



SET THE BA-LA 

OF SUBSEGMENT 

IN LIT ENTRY 



I 



SET CL FROM 
THE LIT ENTRY 



I 



SET CA FROM 
THE LIT ENTRY 



i 



ENA 



LIRCVR 



INCREMENT 
RETRY 
COUNT 



i 



CLEAR ANY OUTPUT 
IN PROGRESS 




SET I/O 

INACTIVE 

IN LIT ENTRY 



I 



ENA 



i 



LIRCVRQ1 



BUILD AN 
ERROR LCP 



A 



SET CL, CA 

FROM THE 

LIT ENTRY 



l 


SET 


OUTPUT 


ACTIVE IN 


LIT 


ENTRY 



ENA 
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DISK QUEUE MANAGER (MM) 






-I ?r" 



yvt£0 * ' 



"~i 



1 3 £ f fv 



/^ '» I 1 > 

6 N ; ■ 



\K\i ¥ 
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DISK QUEUE MANAGER (DQM) -' 

• MANAGES ALLOCATION/DEALLOCATION OF MASS STORAGE (DISKS) 

• MANAGES MASS STORAGE REQUEST QUEUES 

• MANAGES MASS STORAGE CHANNELS, CONTROLLERS AND DISK UNITS. 

• MAXIMUM OF 11 DISK CONTROLLERS W DSU's) 

• UPDATES THE DEVICE RESERVATION TABLE (DRT) FOR EACH DSU. 

• CALLED BY EXEC (UPON TRANSFER OF AN I/O SEGMENT) OR BY 
ANOTHER TASK (FOR DISK REQUEST). 
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6.1 



DATASET ALLOCATION TABLE - DAT 



A DAT exists for each dataset in the system. A DAT defines where a dataset 
logically resides on mass storage, i.e., on which logical device or devices, 
and what portions of each device. 

The DAT page and entry header contains general dataset information. 

The DAT partition header contains general information concerning a particular 
partition of the DAT. A partition represents a portion of a single logical 
device. Each allocation index (AI) in a partition is a bit number in the 



respective Device Reservation Table (DRT). 

The DAT is composed of as many 16-word DAT pages as necessary to represent 
the mass storage occupied by the dataset. Additional DAT pages continue 
from the point at which the last DAT left off. 
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DNT 



ENTRY 
HEADER 



DAT SPACE 
HEADER 




> STP ONLY 



PARTITION 
HEADER 



AI 



Al 



AI 



AI 



PARTITION 

HEADER ♦j 



AI 



AI 



AI 



AI 



DAT 



6.3 



DAT t 
Page 




1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 

1 



15 



PN 



PN 



16 



TN 



2« » 28 32 
WCT 



kO 



ka 



PA 



MAP 



DSC 



CA 



AI 



AI 



AI 



AI 



AI 



AI 



AI 



AI 



AI 



AI 



AI 



JORD 



AS 



DAT 



PDS 



DSZ 



LDV 



BPB 



AI 



AI 



AI 



NPA 



AI 



AI 



AI 



LDV 



BPB 



AI 



AI 



AI 



AI 



AI 



AI 



AI 



NPA 



AI 



AI 



AI 



AI 



AI 



AI 



JORD 



AI 



AI 



AI 



NAI 



AI 



AI 



AI 



NAI 



AI 



AI 



AI 



AI 



AI 



AI 



DAT 



AI 



AI 



63 



STP 

DAT 

• Space 
J Header 



DAT Page 
Header 

DAT Entry 
Header 

DAT Partition 
\ Header 



DAT 
' Partition 



DAT Partition 
Header 



.DAT Partition 



DAT Page 
Header 



Dataset Allocation Table (DAT) 
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AUTO - SYSTEM DUMP AUTOMATIC- FORMATTING FDUMP 1.06 

DATASET ALLOCATION TABLE AREA 
002O372 0421012S000000000O0412 1777773777774000000000 

0020374 0000000000000000000000 0000000000000000000000 0000000000000000000000 



08/25/79 16 > 58: 45 
DAT 



00204O0 00040000000O00000O0000 0000000000000100000000 0000001620000001223000 0421041323047113231060 

0020404 00000000O1100000000045 0000020000140001000006 0000060000340002000011 000O120000600003200016 *4 

0020410 00O0170001000004200022 0000230001200005200026 0000270001400006200032 0000330001600007200036 

0020414 0000370002000010200042 0000430002200011200046 0000470000000000000000 0000000000000000000000 ! " * $ V. & 

0020420 00040000O0000000020440 0000000000000100000000 0000000000000004026000 0421041323047113231060 ! 

0020424 0000000001100000000163 0000500002440012400053 0000540002640013400057 0000600003040014400063 ( ) * + 

0020430 0000640003240015400067 0O0070O0034 400 16400073 0000740003640017400077 0001000004040020400103 4 5 6 7 8 9= ; 
O020434 0001040004240021400107 0001100004440022400113 0001140004640023400117 000120000504002440O123 D E F G H I J K 
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& DD-19-20 



, DD-19-20 
, - . / 1 2 3 
<=>?@ABC 
L M N P Q R S 



0020O4O 00 J 0000000000000020460 0O0124000S240025400127 0001300005440026400133 0001340005640027400137 
0020444 0001400006040030400143 0001440006240031400147 0001500006440032400153 0001540006640033400157 
0020450 0001600007040034400163 0001640007240035400167 0001700007440036400173 0001740007640037400177 
0020454 0002000010040040400203 0002040010240041400207 0002100010440042400213 0002140010640043400217 



!0TUVUXYZC\]a. 



0020460 0014000000000000000000 000220001 1040044400223 000224001 1240045400227 000230001 1440046400000 

464 0000000000000000000000 0000000000000000000000 0000000000000000000000 0000000000000000000000 
4 70 0000000000000000000000 0000000000000000000000 0000000000000000000000 0000000000000000000000 
474 0000000000000000000000 0000000000000000000000 0000000000000000000000 0000000000000000000000 



en 



002O500 0004000000000000000000 0000013340000100000000 0000000520000000001000 0421041323047113231060 

0020504 0000000001100000000001 0000010000000000000000 000O000000000000000000 0000000000000000000000 
00205 1 0000000O00000000000000 0000000000000000000000 0000000000000000000000 0000000000000000000000 
00205.14 0000000000000000000000 000000000000000000000O 0000000O000000O0000O00 0000000000000000000000 



DD-19-20 



0020520 0004000000000000020540 O0O002 1604 000100000000 0000004300000003720000 0421 04-13230471 13231060 
0020524 0000000031100000000160 0023010114100470202352 0024040145000624603171 003 1730 15 154 07022034 16 
0020530 0034210161 100704603424 003425O1614 00713203456 0034700163501012004102 0041640207241035604334 
0020534 0043760222341174605002 0O5O06024334 1216005071 0064240321541507006437 006443032220 151 1206446 

0020540 00 1 000000000000002O560 0064 4 703224 0151 2206453 0O64 54032264 1 5 1 34 06457 0064 60032304 151 44 06463 
0020544 0064640323241515406477 0065020324141521006505 0065060327341741407607 0076100370441742407613 
0020550 0076140370641 743407617 0076200371 101744607624 O07625037 134 1746007631 0076320371541747007635 
002O554 OO7636037 1 74 J. 75000764 1 O07642O372 141 75 1 00764 5 00764 6037234 1 752007651 007652037254 1753O07655 



! * 80 DD-19-20 

P S 

~ . 8 = ( B 

7 8 9 * * 



! ' < ) + , 
4567BCDEF 



- . / O 1 



X & 



3 



002O56O O01 4 000000O00000000000 0076560372741754007661 007662O3731417S5007666 0000000000000000000000 
LOCATIONS 0O020S64 THROUGH 00020573 CONTAIN 0000000000000000000000 

0020574 0Q0OO000O0O00000000000 00000O00O0000000000000 0000000000000000000000 0000000000000000000000 

00206O0 00O4O00000000000000000 0000001O64000100000000 0000000520000000001000 04210413230471 13231463 

00206O4 0000000O01 100000000001 001 2010000000000000000 0000000000000000000000 0000000000000000000000 
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DD-19-33 



ERR 



INSERT AI 
INTO THE DAT 




INSERT DAT 
ADDRESS 
INTO DNT 



NO 



DIS125 




MOVE LOGICAL 

DEVICE NAME 

TO DAT ENTRY 



I 



MOVE ALLOCATION 

SIZE AND STYLE 

TO DAT 



i 



DETERMINE 

NUMBER OF 

AI's NEEDED 



DIS155 



E 



RESERVE 
DISK SPACE 
IN THE DRT 




DIS2Q0 



GET DAT 
ADDRESS 



DIS2Q3 



l 



GET DRT ADDRESS 
FOR THIS DAT 



i 



CLEAR AI's 
IN THE DRT 



i 



INCREMENT 
AVAILABLE 
AI's COUNT 
IN THE DRT 



DIS260 




RELEASE THE 

DAT PAGES 

FOR THIS DATASET 



i 



EXIT 
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DQM400 



GET THE REQUEST 
TABLE ENTRY 



i 



STORE TASK ID, 

DNT ADDRESS, 
TASK REPLY WORD 
IN THE RQT ENTRY 



i 



SET THE 

DNT ENTRY 

ACTIVE 



DQM438 



i 



STORE REQUEST AND 

TRANSFER DIRECTION 

IN THE RQT ENTRY 



DIS300 



i 



TRANSFORM REQUEST 

FROM LOGICAL 

TO PHYSICAL 



I 



INCREMENT REQUEST 

COUNT IN THE 
EQUIPMENT TABLE 



I 



SET QUEUE BIT 
ACTIVE IN THE 

DEVICE 
CHANNEL TABLE 




DQM440 




INSERT REQUEST 

IN SECOND ENTRY 

ON QUEUE 




i 



INSERT REQUEST 
AT END OF QUEUE 



UPDATE 
QUEUE POINTERS 
IN THE EQT 



i 



UPDATE 
QUEUE POINTERS 
IN THE RQT 



I 



EXIT 
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DQM500 




SET TO ERROR 

STATUS IN 

RETURN MESSAGE 



i 



EXIT 



DQM510 



I 



UPDATE QUEUE 
HEAD IN THE EQT 



I 



UPDATE QUEUE 

LENGTH 

IN THE EQT 



i 



CLEAR QUEUE BIT 
IN THE DEVICE 
CHANNEL TABLE 



i 



V 



EXIT 



PERMANENT DATASET MANAGER (PDM) 
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PERMANENT DATASET MANAGER (PDM) 



PROVIDES FOR CREATING, ACCESSING, DELETING, MAINTAINING, 
AND AUDITING PERMANENT DATASETS. 



PERMANENT DATASETS MAY EXIST FOR USERS OR THE SYSTEM. 



• USER PERMANENT DATASETS ARE CREATED UPON REQUEST BY A 
USER JOB. (SAVE) 



SYSTEM PERMANENT DATASETS ARE CREATED FOR SPOOLED INPUT 
AND OUTPUT DATASETS. 



• A SYSTEM PERMANENT DATASET IS CREATED FOR JOB DATASETS 
ARRIVING FROM A FRONT-END. (SDT) 



A PERMANENT JOB DATASET IS DELETED UPON COMPLETION OF THE 
JOB. 
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COMPLETION 

MESSAGE 
IN $SYSLOG 



CLEAR INPUT, 
SET OUTPUT 
REGISTERS 



■*r 





1 




SEARCH 


FOR 


MATCHING 


PDN 


AND ID 


IN 


DSC PAGE 

■ 



ERR 



NO 



ERR 



YES 





sva 10 
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JOB SCHEDULER (JSH) 



JOB SCHEDULER (JSH) 



INITIATES JOB SCHEDULING 



• MANAGES USER AREA MEMORY RESOURCES. (JTA-LA) 



MANAGES USER JOB SWAPPING, 



MANAGES ROLL- IN AND ROLL-OUT OF USER JOBS. 



INITIATED THROUGH CALLS BY OTHER TASKS. 



S.I 



JOB SCHEDULING 



JSH SELECTS JOBS FROM THE SYSTEM DATASET TABLE (DC-IN). 



JOBS ARE ENTERED ON THE JOB EXECUTION TABLE (JXT) BY CLASS, 
PRIORITY AND TIME OF SUBMISSION. 



• A PRIORITY OF 0-15 MAY BE SPECIFIED ON THE JOB CARD. 



THERE CAN BE UP TO 63 ENTRIES ON THE JXT, 



JOBS ON THE JXT CONTEND FOR MEMORY BASED ON PRIORITY AND JOB 
SIZE, (EXCLUDING PRIORITY JOBS), 



ONCE A WAITING JOB BECOMES THE HIGHEST MEMORY PRIORITY IT 
IS MOVED FROM THE DISK TO MEMORY. 
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USER JOB SWAPPING 

• ONCE IN MEMORY A JOB MUST CONTEND WITH OTHER JOBS IN 
MEMORY FOR CPU TIME. 

• CPU PRIORITY FALLS WHEN A JOB IS CONNECTED TO THE CPU. 

• CPU PRIORITIES ARE RECOMPUTED AFTER EACH SCHEDULING 
INTERVAL. 

• CPU PRIORITY IS GIVEN TO JOBS THAT ARE STREAMING 
(DOING I/O). 

• THE ALGORITHM FOR COMPUTING CPU PRIORITY IS ADJUSTABLE. 



a 5 



ROLL-OUT AND ROLL- IN OF JOBS 

MEMORY PRIORITY RISES WHILE A JOB IS WAITING FOR MEMORY 

MEMORY PRIORITY FALLS WHEN A JOB IS IN MEMORY AND 
EXECUTING 

HIGHER PRIORITY JOBS MAY PRE-EMPT MEMORY FROM LOWER 
PRIORITY JOBS, THEN: 

THE LOWER PRIORITY JOB IS WRITTEN TO DISK (ROLLED-OUT). 

HIGHER PRIORITY JOB USES THE VACATED MEMORY. 

MEMORY MAY HAVE TO BE 'COMPACTED' SO HIGH PRIORITY 
JOB HAS A CONTIGUOUS AREA. 

ROLLED-OUT JOBS PRIORITY IS RISING SO EVENTUALLY IT WILL 
BE WRITTEN BACK TO MEMORY (ROLLED-IN). 

THE ALGORITHM FOR COMPUTING MEMORY PRIORITY IS ADJUSTABLE. 
ROLLED JOBS MAY BE CONTINUED OR RERUN AFTER A RESTART 
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Note: In all the examples, jobs 
are swapped when the difference 
between their priorities equals 
or exceeds db. 



Showing two jobs which are too large to share memory. Their, initial 
priorities (from the job cards) are 3 and 5. Note that the higher-priority 
job runs first and consistently enjoys a longer stay in memory, because its 
priority has asymptotes at P~2 and 8 (as opposed to and 6 for the other job.) 



00 

o 




Showing three jobs, only two of which can share memory at any one time. 
Except for the presence of the priori ty-7 job, this graph is identical to 
figure 3.8-2, The priority-7 job can never be forced out of memory because 
its priority never will be even as much as one unit below P=5, which is the 
maximum attainable by either of the other two jobs. (if its initial priority 
were 6 instead of 7, it still would never be forced out by the other two jobs.) 
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JOB SCHEDULER (ROLLJOB) 



CAL 1.03 73282 



10/09/78 12=33:17 



PAGE 624 



SUBROUTINE ROLLJOB 



SUBTITLE 'JOB SCHEDULER C ROLLJOB ?' 

* 

* 

* FJRPOSE: 

*■ 
* 



TO MAKE A REQUEST OF THE DISK QUEUE MANAGER, EITHER TO COPY 
A JOB OUT ONTO ITS ROLLOUT DATASET OR TO READ THE JOB'S IMAGE 
BACK INTO MEMORY. 



ENTRY: 



* EXIT: 



34 = JXT -ENTRY ADDRESS. 
AS = JTA ADDRESS. 

DNP (PROCESS I NG DIRECTION IN THE ROLLFILE'S DNT) IS ALREADY 
SET — TO IF ROLLING IN. OR TO 1 IF ROLLING OUT. 



I/O IS IN PROGRESS. 



* REGISTERS: 

% CA0-A2), (AS-A7), (S0-S2) . (SG-S7) ARE DESTROYED 



ROLLJOB = 
A7 
A6 
SI 
PUT, SI 

>2 

PUT,S2 
SI 

C1 



Al 
A2 



U3JXDNT, A4 
W9JKC JS, A4 

AS SET UP THE DNT: 

SS&S7.DNBUF,A7 BUFFER ADDRESS = JTA ADDRESS, 

AS NUMBER OF BLUCKS = JOB SIZE/512. 

S2>D'9 

S3o.S7,DNN8K,A7 



A4 

SKD'40 

A7 

S1!S2 

JSHID.0 

DQMID,0 

TRANSFER 

PUTREQ 



SUBMIT THE I/O REQUEST: 

LEFT-ADJUST THE JXT ADDRESS 

INSERT THE DNT ADDRESS. 



LET PUTREQ RETURN TO THE CALLER. 
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s 

s 

S001 . 
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s. 

A. 

s. 
s. 
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20847 

.20843 



S0O1 
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— > 

s 

S002 



20852 

20853 

20854 

20855 

20857 

20853 

20859 

20880 

208S1 

20882 

20863 

20864 

20890 

20891 

20892 

20893 

20898 

S93 

209O4 

20905 

209OS 

20907 

20908 

20911 

20912 

20913 

20914 

20915 

2091 S 

2453 

20913 
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USER AREA MANAGEMENT 

PROVIDES FOR ROLL-IN, ROLL-OUT RESOURCES 

PROVIDES FOR INITIAL JOB ENTRY TO MEMORY 

PROVIDES DYNAMIC ALLOCATION OF MEMORY TO USER JOBS 

PROVIDES DYNAMIC DEALLOCATION OF MEMORY TO USER JOBS 

USES A TABLE (MST) FOR DETERMINING USEABLE MEMORY SPACE 

USES A 'FIRST-FIT' METHOD FOR GAINING MORE MEMORY 

'FIRST-FIT' METHOD: 

ALLOCATES MEMORY (BY BLOCK) BEGINNING AT LOW END OF 
MEMORY 

MOVES JOBS (IF REQUIRED) BEGINNING AT HIGH END OF 
MEMORY 

ENCOURAGES LARGE BLOCKS OF FREE MEMORY AT THE 
HIGH END OF MEMORY 
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CAL 1.33 73282 



L0^S/7S 12:35:17 
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SUBROUTINE LIB<5INIT 



SUBTITLE 'JOB SCHEDULER CLIBSINIT)' 
* PURPOSE 

* 



TO FIND THE MST ENTRY FOR AN ALLOCATED SEGMENT WHOSE ADDRESS 
IS KNOl/JN, OR TO FIND THE MST ENTRY FOR THE FIRST ALLOCATED 
SEGMENT ABOVE A GIVEN ADDRESS. 



ENTRY: 



K EXIT; 



33 = ADDRESS OF AN ALLOCATED SEGMENT WHICH IS TO BE FREED, 
OR ANY VALUE LESS THAN THAT ADDRESS AS LONG AS IT IS 
GREATER THAN THE ADDRESS OF ANY LOWER ALLOCATED SEGMENT. 



SO = IF NO ALLOCATED SEGMENT EXISTS WITH AN ADDRESS 

THAT IS EQUAL TO OR GREATER THAN (A3) . 
A2 = (IF SO IS NONZERO) THE OFFSET OF THE DESIRED MST ENTRY. 
S2 = (IF SO IS NONZERO) THE MST ENTRY ITSELF. 






REGISTERS^ 

(A0-A2), (S0-S2) ARE DESTROYED. 

X 



LIBQINIT - 

A2 
LIB! = 



LIB2 



A2 
SZ 

SO 
JSZ 

so 

Al 
A0 

JAM 

J 



LET A2=0 TO FETCH THE FIRST MST' ENTRY. 

ADvANCE THE MST Or~SET. 
FETCH AN MST ENTRY. 



-1 

A2-K 

B'SMST.AS 

S2 

LIB2 RETURN S0=0 IF NO MSADDR IS >= A3. 

Sc > D ' 64-N3MSTYFE 

S2 Al = MSADDR. 

A1-A3 COMPARE MSADDR TO THE CALLER'S ADDRESS. 

LIB1 RELOOP IF THIS SEGMENT ISN'T ALLOCATED. 

LIB1 LOOP UNTIL THE DESIRED SEGMENT IS FOUND. 

BO RETJRN . 



seat. 

S0O1 

S031. 

SO01, 

S0O1. 

S001. 

SOOi 

S001 

SOv'i , 

S001 . 

SOtfl 

S001 . 

soot . 

S001 . 

S001 . 

soot. 

SC01 . 
SOOt . 
S001 . 

seoi . 

S001 . 
S001 

S001 . 

S001 . 
S003. 

soot. 

SOOi . 
S001. 

seei . 

S001 . 
S001 . 
S001 . 
S001 . 
S001 . 
S001. 
S001. 
S0O1 . 
S001 . 
S0O1 . 

seoi . 

S001 . 

seoi. 



457 

458 

-xsb 

460 

461 

462- 

463 

464 

465 

466 

467 

46S 

469 

470 

471 

472 

473 

474 

475 

476 

477 

%/3 

480 

1071 

482 

483 

484 

485 

486 

487 

483 

489 

490 

431 

492 

493 

494 

495 

496 

497 

S0O 
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MEMORY SEGMENT TABLE - MST 

The MST in STP memory contains a one-word entry for each segment of memory 
that has been allocated by the Job Scheduler plus additional entries that 
describe free segments. MST entries are stored in ascending order according 
to the beginning address of the segment (MSADDR). Any free space between 
two allocated segments is consolidated into a single entry. The last entry 
in the table is always followed by a zero word. To provide for the case 
where every allocated segment is surrounded by a free segment, the MST must 
have twice as many words in it as the maximum number of allocated segments, 
plus two more. 



16 



tfO 



63 



TYPE 


SIZE 


ADDR 



Memory Segment Table (MST) entry 



Field 
MSTYPE 



Word 



MSSIZE 
MSADDR 



Bits 
0-15 



16-39 
40-63 



Description 

Contains if the segment is free; 
otherwise, it contains the JXT ordinal 
of the job to which the segment is 
allocated. 

Number of words in the segment. This 
is always a multiple of 1000s . 

STP- relative address of the first word 
in the segment. This is always a 
multiple of 1000 8 . 



MEMORY SEGMENT ALLOCATION TABLE 

0040753 0000010014500000116000 

0040754 0000020014500000263000 0000000121000000430000 0000000000000000000000 0000000000000000000000 

LOCATIONS 00040760 THROUGH 00041053 CONTAIN 0000000000O00000000000 
0041054 0000000000000000000000 
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SUBI*0UT I blE MOVEMEM 



SUBTITLE 'JOB SCHEDULER r MOVEMEM)' 
X 

X PURPOSE: 

* 

* ENTRY •■ 

X 

* 
* 
X EXIT: 

X 

X 

* 

X 

X 

X 

X 

X 

X METHOD 

X 

X 

X 

X 

X 

X 

** 



S. 20481 

S.20dS2 
3.20433 
S. 20484 



TO MOVE A BLOCK OF WORDS IN MEMORY. 



A3 = ADDRESS OF THE DESTINATION AREA. 
A5 = ADDRESS OF THE FIRST WORD TO BE MOVED. 
AS = NUMBER OF WORDS IN THE DESTINATION AREA. 
A7 = NUMBER OF WORDS TO 8E MOVED. 



THE NUMBER OF WORDS GIVEN BY MIN ''AS. A?) IS MOVED FROM CA5> 
TO ( A3) . A2 AND S2 ARE SET UP FOR A SUBSEQUENT 'ERASE'iEM' 
CALL (WHICH WILL HAVE NO EFFECT IF S2 <= 0) . 



REGISTERS: 



CVO), CE10-B11), CA0-A2), (S0-S3) ARE DESTROYED. 
CT10,Tli) ARE DESTROYED WHILE V,-\E POST CALL IS PRESENT. 



IF A3=A5, NO MOVING IS DONE, BUT A2 AND 52 ARE SET FOR 
ERASEMEM ANYWAY. IF A3<A5, MOVING COMMENCES WITH THE 
LOWER ADDRESSES, IF A3>A5, IT BEGINS AT THE HIG-iER ONES. 
54 ELEMENTS ARE MOVED AT A TIME, UNLESS THE STORE WOULD 
OVERFLOW THE DESTINATION AREA — IN WHICH CASE A FINAL 
PASS IS MADE WITH A REDUCED VL. 



MOVEMEM =■ 

B10 

Bit 

AO 

Al 

S3 

JA? 

S3 



MVM1 



S2 

A2 

A0 

Al 
SO 
JAZ 
JSM 

TIO 
Til 
SI 
SI 

S2 

CO 






POST 



x 

A3 

A3 

AS-A7 

AS-A7 

A7 

Mv/Ml 

A3 

X 

Al 

A3+A7 

A3 -AS 

zso 

4fcSi*33 

MVM9 

MVM9 

s? 

A3 

SKD'24 
A3 
S2<D'24 

SliS7 

A'i 

S2fS7 

'MV'R 
S7<D'43 
37! Si 
32, SI, S3 
Tio 
Til 



TOTAL MOVE LENGTH (IN S3) = MIN. (AS,A7) 



SET UP S2 AND A2 FOR A SUBSEQUENT CALL TO 
ERASEMEM (WILL BE A NO-0° IF S2<=0) 

COMPARE THE TWO GIVEN ADDRESSES. 

INITIAL VECTOR LENGTH = 64. 

DO NOTHING IF A3=Ab". 
DO NOTHING IP S3<0. 

BUILD ARGUMENTS FOR A POST CALL. 

FROM-ADDPESS 

TO -ADDRESS 

FROMvLENGT'-! 

TO -LENGTH 

IDENTIFIER 



POST THE MOVE ARGUMENTS 

AND RESTORE REGISTERS. 8.16 



S002 



s 

s 

s 

s 

s 
s 
s 

s 

S0O2 

S002 

c 



S0O2 

S002 



S002 
S002 
S002 
SC02 
SO02 
S002 
SQ%Z 
SC02 
S002 
.^."02 
S0£2 

seas 

SO02 
S0O2 
S002 
S002 
SO02 



,36 

.20437 

. 20433 

. 1363 

.20430 

. 20431 

.20492 

.20493 

.20434 

.20435 

. 20436 

.20497 

.20493 

.20439 

205O0 
. 20501 
. 20G02 

1370 
. 1971 
.20504 
. 20505 
. 20506 
. 205O7 
. 20503 
, 20509 

20510 
.20511 
. 2£512 
13 
. &CS14 
.20515 
.1972 
. 1973 
. 20516 
.20517 
.20513 
. 20513 
. 2052O 
. 20521 
.20522 
.20523 
.20524 
. 20525 
.20523 
. 20527 
. 20523 
.1974 
.1375 
. 1373 
.1977 

1373 
.1373 
. 13^0 
.19S1 
.1332 
. 1S 1 33 
' ~34 
. vSS 
.1986 
.1337 
. 1983 
. 1SS9 
.1990 
. 1S31 

1992 



MW2 



Mvtt3 



MVM4 



I'lVi'lO 



MVM7 



MVM8 



MVM3 



JSZ 


MVM4 


•JAP 


MVM6 


31 


'IV. 


VL 


Al 


SI 


Al 


= 


* 


A0 


AS 


S3 


S3-S1 


AS 


AS+A1 


ve 


,A0. 1 


A0 


A3 


S0 


S3-S1 


A3 


A3+A1 


,A0,1 


V0 


JSP 


MVM3 


= 


* 


S0 


S3 


Al 


S3 


JSN 


MVM2 


J 


MVM9 


HERE IF MOVING FROM 


= 


* 


Al 


S3 


A5 


A5+A1 


A3 


A3+A1 


Al 


ZS0 


- 


* 


VL 


Al 


SI 


Al 


Zi 


* 


A0 


AS-A1 


S3 


S3-S1 


AS 


A5-A1 


V0 


,A0,1 


A0 


A3-A1. 


SO 


S3-S1 


A3 


A3-A1 


,A0,i. 


V0 


JSP 


MVM8 


S0 


S3 


Al 


S3 


JSN 


MVM7 


- 




A3 


B10 


A5 


Bll. 




B0 



DO CK'LY THE FINAL PASS IF S3<64. 
MO'/E FROM THE TCP DOWN IF A3>A5. 



A. TO 64 (OR, ON FINAL PASS. TO RESIDUE) 



SET ADDRESS FOR VECTOR LOAD. 

S3 = WORDS STILL TO BE MOVED AT LOOP'S END. 

ADv/AfCE VECTOR-LOAD POINTER. 

LOAD 

SET ADDRESS FOR VECTOR STO^E. 

S0 'JILL BE NEGATIVE WHEN S3<64 ('OR. ON FINAL 

PASS, WHEN S3=0> . 
STORE . 
RELOOP WHILE S3 >= 64. 



O <= S3 < 64; UE ARE DONE IF S3=0. 
IF S3>0, GO BACK TO MAKE A FINAL PASS. 
ELSE RETURN. 
THE TOP DOUM INSTEAD OF FROM THE BOTTOM UP. 

ST^tP" AS AND A3 AT THEIR HIGHEST VALUES. 

RESTORE Al=64. 

SET VL TO 84 COR, ON FINAL PASS, TO RESIDUE) 



SET ADDRESS FOR VECTOR LOAD. 

S3 = WORDS STILL TO BE MOVED AT LOOP'S END. 

BACK UP VECTOR-LOAD POINTER. 

LOAD 

SET ADDRESS FOR VECTOR STORE. 

SO i/! ILL BE NEGATIVE WHEN S3<64 COR, ON FINAL 

Pf^SS, WHEN S3=0) . 
STORE . 
RELOOP WHILE S3 >= 64. 

<- 53 < 34: t,.E ARE DONE IF S3=0. 

IF S3>0, GO BACK TO MAKE A FINAL PASS. 



RETJFN 



S002 



S 
S 

s 
s 
s 
s 

s. 
s. 

s. 

s 

s. 

^s. 

>>. 

s. 
s. 
s. 
s. 

s. 
s. 
s. 

S002. 
s . 
s. 



S002 

S002 

S002 

S 



1203 

20531 

£0532 

20533 

20524 

20535 

20536 

20537 

20538 

20E33 

20540 

20541 

20542 

20543 

20544. 

20545 

20546 

20547 

20543 

205*13 

20550 

20551 

23552 

20553 

1334 

20556 

20557 

2055S 

20559 

2O5S0 

20561 

20562 

20563 

20564 

205SS 

20566 

20567 

20588 

20565 

2057O 

20571 

20572 

20573 

20574 

20575 

20576 

20577 

20573 

20579 

20520 

20521 

20532 

20S23 

13S5 

1SS6 

1997 

20SS4 
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JOB SCHEDULER JOB FLOW 



JOB DATASET ENTERS THE SYSTEM 



STATION CALL PROCESSOR (SCP) HAS THE JOB SAVED ON DISK 



SCP HAS AN ENTRY MADE IN THE SYSTEM DATASET TABLE (SDT), AND 
DATASET CATALOG (DSC) 



JOB IS PLACED IN JOB EXECUTION TABLE (JXT) ACCORDING TO CLASS/ 
PRIORITY AND TIME OF SUBMISSION 



ONCE ON THE JXT THE JOB CONTENDS FOR MEMORY 



JOB MEMORY IS ERASED WHEN JOB INITIATED (IaERASE) 



JOB IN MEMORY CONTENDS FOR CPU TIME 



JOB IN MEMORY MAY BE ROLLED OUT 



WHEN A JOB COMPLETES, ITS OUTPUT DATASETS ARE PLACED IN THE 
OUTPUT QUEUE IN SDT AND MADE PERMANENT 



WHEN FRONT-END ACKNOWLEDGES RECEIPT OF A DATASET THE DATASET 
CATALOG ENTRY IS REMOVED 



8.19 



Calling Sequence 

JSH can be invoked from any other task by calling either TSKREQ or PUTREQ with 
the following instruction sequence: 



Location 


Result 


Operand 




Al 


calling task's ID 




A2 


JSHID,0 




SI 


function code (already shifted) 




S2 


job's offset in JXT 




SI 


S1IS2 


r 


S2 


address if any 




S2 


S2<0'16 


L 


SI 


S1!S2 


r 


S2 


auxiliary information if any -i 




S2 


S2<D'40 


L 


SI 


S11S2 




R 


TSKREQ or PUTREQ J 



Input register format: 

INPUT+0 
INPUT+1 



00 




2 »f 


h8 53 


63 


AUX 


ADDR 


FC 


JXO 


unused 



AUX 
ADDR 
FC 
JXO 



Auxiliary information; unused by JSH. (Any value the caller places 
in INPUT+0 is returned verbatim in OUTPUT+1.) 

Word address relative to the beginning of STP of an additional word 
or list of words if needed to fully specify the call. 

Function code; use equated labels of the form J$XXXX, selected from 
table 



53 



JXT offset for the job in question. 
Output register format: 

OUTPUT+0 
OUTPUT+1 

STATUS Status of requested function. 

Requested function completely accomplished. 
t*0 Error or system is unable to fulfill request completely. 



00 




2h 


48 




63 


STATUS 




AUX 


ADDR 


FC 


JXO 



a ?i 



PARTIAL JOB SCHEDULER FUNCTIONS 



FUNCTIONS: 
JSREQTAB 



Function 
Code 



Input 
Parameters 



Function 



— no input 

J$ABORT 

J$DELETE 

J$RERUN 

J$ALLOC 

J$IOSUSP 

J$IODONE 

J$DELAY 

J$DELAYK 

J$AWAIT 

J$SUSP 

J$SUSPK 

J$REMK 

J$RESUME 

J$STOP 

J$STPALL 

J$START 

J$STRALL 

J$CLEAR 
J$INDEX 
J$SHTDWN 

J$RCVR 



required — 
JXD,CODE 
JXD 
JXQ 

JXO,ADDR 
J2D 
JXD 

J3D,ADDR 
JXO,ADER 
JXD,ADDR 
JXD 
JXD 

jxd 

JXD 
JXD 
J}© 
JXD 

JXD 

JXD 
J2D 
JXO 

J2D 



Fill up JXT with jobs from SDT. 

Abort a job. 

Release all space allocated to a job. 

Same as J$DELETE but reinitiate a job. 

Allocate or release memory for a job. 

Suspend a job until an I/O request is done. 

Resume an I/O suspended job. 

Suspend a job for a given time. 

Same as J$DELAY but keep the job in memory. 

Suspend a job until a given event occurs. 

Suspend a job momentarily; system initiated. 

Same as J$SUSP but keep the job in memory. 

Lift the "keep in memory" restriction. 

End momentary suspension. 

Suspend a job indefinitely; operator action. 

Suspend all jobs indefinitely; operator action. 

End an indefinite suspension for a job; operator 
action . 

End an indefinite suspension for all jobs; operator 
action. 

Force the end of a job's suspension. 

Mark the job irrecoverable. 

Idle down job activity in preparation for a 
system interruption. 

Lift the suspension from jobs suspended by a 
J$SHTDWN or system interruption. 



8.23 



JOB STATUS AND STATE CHANGES 

The status field 

The 23-bit status field (JXSTAT) in each job's JXT entry is described in 
table 3.8-2. The bits labeled Q, R, X, I, U, L, S, 0, and M are mutually 
exclusive. Generally, whichever one of them is set determines the job's 
state. The other bits modify the job's state. 

If all of bits 3 through 22 are zero, the job is said to be waiting to be 
connected to the CPU (state W). 

Table 3.8-2. Status bit assignments 



Bit position 
in JXSTAT 


Bit 
name 


Corresponding 

job state Interpretation (when bit is set) 





K 




S 




Keep this job in memory; don't roll it out. 


1 


A 




any 




Abort pending; reason given in JXEPC. 


2 


H 









Holding operator or shutdown suspension 
unti 1 RN is set. 


3 












Suspended (indefinitely) by operator. 


h 


S 




s 




Suspended (momentarily) by system. 


5 


T 




s 




Suspended until a given time elapses. 


6 


E 




s 




Suspended until a given event occurs. 


7 


M 




M 




Memory allocation is pending. 


8 


Q. 




Q 




Queued up; waiting to be initiated. 


9 


R 




E 




Rolled out. The M bit may also be set. 


10 


X 




X 




Executing. 


11 


I 




I 




Dormant pending recall on I/O completion. 


12 


C 




any 




Rerun request in process. 


13 


D 




any 




Delete request in progress. 


\k 


U 




U 




Unloading from memory to roll file. 


15 


L 




L 




Loading into a new memory area. 


16 


P 


U 


or L 




Unload or load initiation is pending. 


17 


Y 


M, 


Q or 


R 


Waiting for memory liberation. 


18 


Z 


M, 


Q or 


o 


Waiting for memory compaction. 


19 


B 




S 




Suspended (indefinitely) by recovery. 


20 


V 




I 




Waiting on INDEX write completion. 


21 


F 




I 




Waiting on rollfile write completion. 


22 


N 


M 3 


Q or 


p 


Not in memory. 



90 PU^ 



8.25 



CPU SWAPPING 



Q— *-X 



A JOB IS QUEUED IN THE JOB EXECUTION TABLE 
(JXT) WAITING MEMORY. THE JOB IS BROUGHT 
INTO MEMORY AND BEGINS EXECUTION 



X— >I 



THE JOB IS SUSPENDED PENDING COMPLETION 
OF I/O. THE CPU IS AVAILABLE FOR USE BY 
ANOTHER JOB. 



I— **W 



THE I/O COMPLETES. THE JOB MAY WAIT FOR 
MORE CPU TIME. 



W— *X 



JSH RECONNECTS THE WAITING JOB BECAUSE OF 
ITS HIGH PRIORITY 



X— *"W 



THE JOB'S TIME SLICE EXPIRES. THE CPU IS 
AVAILABLE FOR USE BY ANOTHER JOB. 



Must wait 
for I/O 




Disconnection 
(time slice 
expired) 



Reconnect ioir 
(new time slice) 

R.77 




I/O is 
complete 



MEMORY SWAPPING 

W-MJ I/O IS INITIATED FOR ROLL-OUT OF THE 
WAITING JOB. 



U-Ml THE JOB IS ROLLED-OUT. THE JOB'S MEMORY 
IS AVAILABLE. 

R->L I/O IS INITIATED FOR ROLL-IN OF THE JOB. 
MEMORY HAS BEEN ALLOCATED. 

L-Mil THE JOB IS ROLLED-IN. THE JOB MAY WAIT 
FOR CPU TIME. 



Roll-in 



S^*\ . is done /""■>. 

Q, <T) 



Roll-out | Preempts 
forced by |memory from 
another job j another job 

I 



K^y^^iT-^iT^^J 



is done 



8.29 



JOB SUSPENSION 



X— HI THE EXECUTING JOB MAKES A REQUEST FOR MORE 
MEMORY. IF REQUEST CANNOT BE SATISFIED THE 
JOB MAY BE ROLLED-OUT. 



M— *W THE ALLOCATION REQUEST WAS SATISFIED. 

THE JOB WAS NOT ROLLED OUT SO NOW MAY WAIT 
FOR CPU TIME 



M-*«U I/O IS INITIATED FOR ROLL-OUT OF THE JOB 
REQUESTING MORE MEMORY 



•0 X— »S THE EXECUTING JOB REQUESTS SUSPENSION. JOB 

IS DISCONNECTED FROM CPU AND LIABLE TO BE 
ROLLED OUT 



0— -OU S-*>SU I/O IS INITIATED FOR ROLL-OUT OF THE 

SUSPENDED JOB. 



OU— ~ OR SU->SR THE SUSPENDED JOB IS ROLLED-OUT. THE JOB'S 

MEMORY IS AVAILABLE. 



OR — «*R SR-*R THE SUSPENDED JOB IS REACTIVATED. 



^ W S— #»W THE SUSPENDED JOB IN MEMORY IS REACTIVATED. 



8.30 



Operator 
SUSPEND command 




Memory is 
in demand 




Roll-out 
is done 



Operator 

RESUME 

command 




M OH 



8.31 




MEMORY IS 
IN DEMAND 



I/O IS 
COMPLETE 



ROLL-IN 

IS DONE S~\ 

I 



ROLL-OUT 
FORCED 3Y 
ANOTHER JOB 



PREEMPT 
. MEMORY 
J FROM 

ANOTHER 
| JOB 



L-OUT VL^ 



ROLL 
IS DONE 



ROLL-OUT 
IS DONE 



*§> 
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USER EXCHANGE PROCESSOR (EXP) 



USER EXCHANGE PROCESSOR (EXP) 

PROCESSES ALL USER NORMAL ACTION REQUESTS. 

PROCESSES ALL USER ERROR EXITS. 

PROCESSES JSH REQUESTS TO INITIATE OR ABORT A USER JOB. 

ALL REQUESTS MADE THROUGH THE EXCHANGE PROCESSOR REQUEST 
WORD (JTEP) IN A USER JTA. JTEP IS WORD 67 g . 



2 4 6 



16 



40 



63 



Sg 



Field 
JTEPX 



Bits 



0-1 



Description 

User exit 

2 Normal exit 

1 Error exit or execution error 

Not user exit 



JTEPC 


2 


JTEPJ 


3 


JTEPM 


4 


JTEPF 


7-15 


JTEPP 


16-39 


JTEPA 


40-53 



Continuation flag 
Job Scheduler request flag 
JTA expansion request flag 
Exchange package flags 
P register for errors 
EXP Continuation address 



USER NORMAL EXIT 

USER ISSUES A SYSTEM ACTION REQUEST WHICH SETS S REGISTERS 
AND ISSUES AN EX INSTRUCTION 

SO-DESIRED CALL TABLE OFFSET (FUNCTION CODE) 

SI-CONVENTION ~ AN ADDRESS OF A USER TABLE 
(OPTIONAL) 

S2-FURTHER OPTIONAL ARGUMENT 

WHEN THE REQUEST IS COMPLETE THE USER'S SO-REGISTER IS SET 

SO-ZERO IF REQUEST COMPLETED NORMALLY 
SO-ERROR CODE OR JOB ABORTS 

EXP EXAMINES THE USERS JXT ENTRIES. A JXT ENTRY POINTS 
TO THE USERS JTA 

THE USERS JTA CONTAINS A COPY OF THE EXCHANGE PACKAGE 



EXP EXAMINES JTEP (WORD 67o) AND THE USERS SO REGISTER 
TO DETERMINE REQUEST 



9.3 





* NORMA! 

* 

CALL = 


- EXCHANGE CALLS At" 




W.* 




CON 


0*X24+ADV 




CON 


0*X24+ABT 




CON 


1*X24+DAT 




CON 


1*X24+TIM 




CON 


D'3XX24+MSG 




CON 


2*X24+RCL 




CON 


0*X24+TRM 




CON 


1*X24+SSW 




CON 


2*X24+0PN 




CON 


1*X24+MEM 




CON 


1*X24+LBN 




CON 


2*X24+CLS 




CON 


D'8*X24+DNT 




CON 


1*X24+MDE 




CON 


D'8*X24+GNS 




CON 


0*X24+EXU 




CON 


D'8*X24+RLS 




CON 


0*X24+PDM 




CON 


D'16XX24+RDC 




CON 


D'16*X24+WDC 




CON 


2XX24+GRN 




CON 


D'16XX24+DPS 




CON 


1XX24+JDA 




CON 


1XX24+JTI 




CON 


D'3XX24+ACT 




CON 


0XX24+SPS 




CON 


1*X£4+C3W 




CON 


1XX24+TSW 




VWD 


D'40/LE<3DSP,D 




CON 


1XX24+DLY 




CON 


0XX24+AQR 




CON 


0XX24+NRN 




CON 


0XX24+RRN 


40 


CALMAX 


W . X-CALL-1 


41 


CALMAX1 = 


CALMAX+1 



00 ADVANCE PROGRAM 

01 ABORT JOB 

02 GET DATE - MM/DD/YY 

03 GET TIME - HH:MM:SS 

04 PUT MESSAGE INTO USERS DAYFILE 

05 SUSPEND IF I/O ACTIVE 

06 TERMINATE JOB 

07 SET SENSE SWITCHES 

10 OPEN DATASET 

11 MEMORY REQUEST 

12 GET LAST BLOCK NUMBER 

13 CLOSE DATASET 

14 CREATE/SENSE DNT 

15 SET MODE 

16 GET NEXT CONTROL CARD 

17 EXECUTE AN OBJECT CODE FILE 

20 RELEASE DATASET 

21 PERMANENT DATASET MANAGER REQUEST 

22 READ DISK CIRCULAR 

23 WRITE DISK CIRCULAR 

24 GET SYSTEM REVISION LEVELS 

25 DISPOSE DATASET 

26 GET JULIAN DATE - YYDDD 

27 ACCUMULATE JOB CPU TIME 

30 GET ACCOUNTING INFORMATION FROM JTA 

31 SET P AND SUSPEND USER 

32 CLEAR SENSE SWITCH 

33 TEST SENSE SWITCH 

'24/BIO 034 BUFFERED I/O REQUEST 

35 DELAY JOB X NUMBER OF MILLISECONDS 
36. ACQUIRE DATASET FROM FRONT END 
37 DISABLE NO-RERUN CHECK 
40 OVERRIDE NOT-RERUNNABLE FLAG 
CALL LIMIT 



S 
S 

S 
S 

s 
s 

s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 
s 

;> 

S 

s 

s 
s 
s 
s 

C080S 
E1327 
E1327 

S 
D1032 

S 



11S2 

1133 

1124 

11S5 

11S6 

1187 

1188 

1189 

1190 

1131 

1192 

1193 

1194 

1195 

1196 

1137 

1138 

1139 

1200 

1201 

.1202 

1203 

.1204 

.1205 

,1206 

.1207 

.1208 

.1209 

.1210 

.1211 

,1212 

.1213 

.1214 

.233 

.317 

,318 

.1215 

52 

.1216 



EXCHANGE PROCESSOR CALL TABLE 



3 1^00000000000000' 

■■.) '.■:■:■ ". -''00000001 -»00 I 00: 
'• ! i •', \\)"- V'.0000000 | 00. 



131 



0000000000000000:3 :t. 3633 

>'/ 1 2 000O0000OO00 I 0< :'03, '' .';■", 1 ; • 

/GG 1. 0000001 1 00000O3003; ''G.--G3 
•:"•■•.'•'■' !0 0"V000000QQ0t'V;003r 1 040J. 000000000000 10003c 1/54 
c, ;-,• !■' :■•■ i. • \ 0000000000000000323067 0000000000001 000327437 
00- ! ' V-";- -?0 0000000000002000:'-j301 20 0000000000000200324022 
00- !-'.' '... "■"24 00000000000001.00324230 00000000000010003131 0£ 
0O4b2'J0 0000000000000100327725 0000000000002000317724 

0005234 0000000000000000325734 0000000C000O0000327S44 



0000000000000 1 0032 1. 1 1 

V-* >00000i H "!'00i \ H;1 30033 V "\,> "7 

00000000000001 00" : !253G< I 
0000000000000 1 (303243 1. 4 
0000000000O00000326641 
00000000000020003225---1 
0000000000000000327624 
0000000000000100321730 



0O000000O00000003343G6 

0000000000000 J. 00324250 

0000000000001 000323667 
0000000000002000330 115 

0000000000000 1 00324036 
0000000000000 1 0032 1050 

000000000000000031 S730 
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*> DMEM FWA=0136000 LWA=0144777 LE=0000 DUMP ID = SYSDUMP FDUMP 1.06 06/25/79 16 : 58*57 PAGE 124 

'-" DATE = 06/21/79 TIME = 21:13:41 

.a 

0136000 0411252465440000000000 0000000000063551645625 0000000000023663324313 0000000000000073314630 BUSY K 

0136004 0000000000000000000055 0000000000000000000007 0000000000000000000000 0000000000000000000000 - 

LOCATIONS 00136010 THROUGH 00136017 CONTAIN OOOOOOOOOOOOOOOOOOOOOO 
0136020 00000000O01041000O0212 00O00OO01 4500000000000 000000003030 1600000000 000000150000000(3000000 ! 4 

0136024 0000000000000000000000 0000000000000000000000 0000000000000000000000 0000000000000000000213 
0136O30 0000000000000000000000 0000000000000000000000 0000000000000000000000 0000000(500000000000000 
0136034 0000000000000000000000 0000000000000000000000 0000000000000000000000 0000000000000000000001 

0136040 X777777777777777777777 00O000OO00000000000000 0000000000000000000000 0000000000000000000000 
LOCATIONS 00136044 THROUGH 00136057 CONTAIN 00000O0000000000000000 

0136060 0000000000000000000000 0000000000000000000000 0000000000000000000000 000000000006355 1645625 K 

0136064 00OO00000000000000000O 0425322255254201321403 00000000O0000000324715 0000000000000000000000 EZJ 

0136070 O000OO0000000000000000 00000O000O000000000000 0000000000000000000000 0421 072 10434000O036026 DGDG < 

0136074 0475202125110125047522 0400615063140064344400 040OG05667546174000000 0000040000000000000000 OPERATORS 3 @( 1 

0136100 000000000000O000001020 0000000000000000000213 0000000000000000000000 0000000000000000000000 

LOCATIONS 00136104 THROUGH 00137317 CONTAIN 0000000000000O0O000000 
0137320 0221032460000000000001 0000020000000000002000 0000000000000100002000 0000000O00000000O02010 *CS 

^'"7324 0000000000000000003O00 1000000000000000002011 0000000000000000000000 0000400000000000000000 

7330 1000000000000000002007 0000000000000000000000 0000000033651400117660 0000000000000000000000 L 

1° 7334 0000000000000000352545 0000000012240600036026 0020000000700500007017 100O0000O0000000000000 < 

°* 7310 0221142364340000000001 OOOOOlOOOOOOOOOOOOoOOO 000O0000000000O0003152 00000O0O00000000003000 1IL0G 

0137344 000000000000000000*1000 1040000000000000003151 0000000000000000000000 0000000000000000000000 

0137350 1040000000000000003140 OOOOOOOOOOOOOOOOOOOOOO 00000O0035636600O00712 000O000000000000000O00 * 

0137354 OOOOOOOOOOOOOOOOOOOOOO 0O00000012242400036026 OOOOOOOOOOOOOOOOOOOOOO 00O0O00O00000000000000 < 

O137360 0461042440000000000000 0400000000000000000200 0000000000O01100000200 0000000000001000010450 LDR @ < 

0137364 OOOOOOOOuOOOOOOOO 11200 1000000 10000 100001 0450 OOOOOOOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOOOOOO ( 

0137370 0OO00001000010OOO1O447 OOOOOOOOOOOOOOOOOOOOOO 00OOOOOO3363O7O01252O0 OOOOOOOOOOOOOOOOOOOOOO ' 

0137374 O0O0000000000000352615 00000000 11742000036026 0062000001515000017414 02212O2044700000000O00 < fPBN 

0137400 0000000000000000000000 0000000000000000000000 00000000000000000O0000 0000000000000000000000 

LOCATIONS O01374O4 THROUGH 00137417 CONTAIN OOOOOOOOOOOOOOOOOOOOOO 
013742O 0461042440000000000000 O000OO24 641401 00021 14 O 0000040000O00S00 132200 10O0200000000000000000 LDR SC "* 
0137424 00000000352 134 00001 360 OOOOOOOOOOOOOOOOOOOOOO 0000000 lOOOOOOOllOOOM 00OOO0OO0000000O000O1 1 \ 
0137430 0000000001100000116100 OOOOOOOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOOOOOO 0000000000000000000000 3 
0137434 OOOOOOOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOOOOOO 0000000000000000000000 

0137440 0000000000000000343413 0O00000000000O001.16000 00000000000000O0036026 0000000000000000333175 < 

0137444 0O0OO0O000O0000O004520 0000000000O00O001220O0 00000000000000000040O0 &0&&0idO&Q<d&&QQ77777777 P 

0137450 OOOOOOOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOOOOOO 00070702600117516^001 000OO00O0000O000000001 

0137454 OO0OO lOOOOOOOOOOOOOOOO &3777777777777777QQ<d&d OOOOOOOOOOOOOOOOOOOOOO 0000000O00000000333175 ? 
0137460 OOOOOOOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOOOOOO 0000000000000000000000 

LOCATIONS 00137464 THROUGH 00137657 CONTAIN OOOOOOOOOOOOOOOOOOOOOO 
O137660 O461042442700000000000 0000000000000000000000 OOOOOOOOOOOOOOOOOOOOOO 000(3000000000000000000 LDR. 

LOCATIONS 00137664 THROUGH 00137673 CONTAIN OOOOOOOOOOOOOOOOOOOOOO 
0137674 000000O001451600136000 0000030012200000121600 0000060000000000121564 0000000000000000000000 N 



DMEM RJA=01 36000 LWA=0144777 LE=0000 



DUMP ID = SYSDUMP 



FDUMP 1.06 
DATE = 06/21/79 



06/25/79 
TIME = 21:13:4t 



16:58=57 
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0137740 
0137744 

0137750 
0137754 

0140000 

0140004 
0140010 
014O014 
01 4O020 
0140024 
0140030 

0141000 

014 1004 
J 010 
co MM4 
^ 1020 
1024 
014103O 
0141034 
0141040 
0141044 

0141050 
0141054 
0141060 
0141064 
0141070 
0141074 

0141100 

0141104 
0141110 
0141114 
0141120 
0141124 
0141130 
0141134 
0141140 
0141144 
0141150 



LOCATIONS 00137700 THROUGH 00137737 CONTAIN 0000000000000000000000 

0000000000000000340546 0000000000000000000000 0000000000000000000000 0000000000000000004002 

000030O0000000001 22520 000000000000000024 26G0 O000O00000000000000000 0000000000000000000000 

0000000000000000000000 0000000000000000000000 00000000000000:30000000 0000000000000000000000 

0000000000000000130572 0000000000000000000000 0000000000000000000000 0000000000000000000000 

LOCATIONS 00137760 THROUGH 00137777 CONTAIN 0O00000000000000000000 
0000000000000000000002 0451 17204241 1223436502 0525232622612412200000 1020000000000000000001 



04 1 5062502700000000000 
0425302225205600000000 

1 60000000000000000000 1 

0364 401 420000O0000O000 

1 06000000000000000000 1 

1700000000000000000000 



1 040000000000000000001 
1 030000000000000000001 

1 54 4422220075 1 0030000 

1 050000000000000000002 

0154442124710400000000 

0000000000000000000000 



046 1 042442700000000000 
0425302225205600000000 

101 0000000000000000002 

0154 4 4 2 1 64752423620060 

1 030000000000000000000 

0000000000000000000000 



1 040000000000000000001 
1 030000000000000000000 

020060 1 4 0304 40 1 00444 40 

03006 1 0000000000000000 
1 600000000000000000000 
0000000000000000000000 





JOB(JN=BUSY,T) 




CFT. 


LDR. 


J 


EXIT. 


EXIT. 






*I =0 001 


I 


= 1 


*GOTO 001 
tfEND 





LOCATIONS 00140034 THROUGH 00140777 CONTAIN 0000000000000000000000 



00000000000000000000 1 6 

030060 1 4030040 1 0020040 
05 1 505244 4 4 50 1 2302646 1 
04450722052123130201 15 
02004 1 002004 1 002004 



0200401 002004010020040 
04 1 52324 02004 01 0020O40 
03 1 0401 0020040 1 0020040 
0445162342704010020040 
0310611643046016431062 



031061 1643046016431062 
020040 1 0020040 1 0020040 
04 1 52222220055 1 0046505 
030066 1 363 1 061 1 3633471 
0200401002004010030056 



020040100200401O030056 
0415222025445514220040 
0471O4236521011004410S 
1 000000000000000000006 
030060 1 4 030040 1 002004 



04 1 52324 02001 1 0O20010 0200401002004 1 002004 
03 1 06 1 1 64 304 60 1 64 3 1 062 O20O40 1 002004 1 0030056 



1000000O000000i30000016 0200401002004010020040 
030060 1 4O3004 1 O020040 04 1 52324020040 1 002004 



0200101002004010020040 04 15222025445514220040 04752021251 10125044516 0434402465452325042515 



020010 1 002004 1 002001 

0300661 363 1 0601 36334711 

0200 1 1 00200 1 1 0030056 
1000000000000000000036 

0300G01 403001010020040 
02004 1 0020040 1 002O040 



04 1 5 1 724620061 1 3430066 0200402025 1 5232 1 24 6502 
1 000000000000000000006 0200401002004 01 002004 
030060 14 030040 1 002004 04 1 523240200401 0020O40 
0200401002004010020040 031061 164304601 6431 062 
04 1 52324020040 1 0020040 02004 1 00200401 0020040 
031061 1643046016431062 0200401002004010030056 



04 15232402004010020040 0451 17204241 1223436502 0525232622612412220040 



0200401002004010020010 031061 16430460164 



0415232402004010020010 
0310611643046016431062 
043 1 24 1 4030064 1 0026440 
0201232064410521052514 
0310611643046016431062 
04 3 1 24 1 403006 11 0O26440 
0201232124151723442123 
0200 10 1 002O040 1 0030056 

1000000000000000300010 

030060 1 44 324 4 1 002001 
042503252521 1 123647040 



31062 

04 1 5062502704O 1 0020040 
020040 1 0020040 1 0030056 
0415062502012621251 123 
042522 1 0020040 1 0020040 
0200401002004010030056 
04 1517232501 1 123042440 

1 00000000000000000000*3 

0300601423244010020040 
020040 1 002004 1 0020040 
0525232 1 25 104 1 002004 

1 0000O0000000000000000 



0200401 002004 01 003O056 

100000000000000000001 3 

0300601 4031 4 401 0020040 
0445 1 7234200551 0020040 

1 0000000000000000000 1 2 

030060142324401 0020040 
0521 1 12324244017220040 
02004 1 002004 1 0020040 
0415232402004010020040 
031061 1643046016431062 
046 1 04 14 030460 1 002644 

0000000000000000000000 



0461311004210125042440 
0310611643046016431062 
0200401002004010020040 
02004 1 002004010030056 
1000000000000000000007 
0300601403O04010020040 

1 000000000000000000006 

0300601403104010020040 
0200401002004010020040 
05252321 251 0401 0020040 
0300661 363106013633471 
020040 1 0020040 1 0020040 
05252321 25 1 040 1 0020040 
020040140270601 4030462 
031061 1643046016431062 
046104244270401002O040 
020040 1 0020040 10030056 
041 1052164451610042530 

0000000000000000000000 



21=1022 0. 
0000 CSP CRAY-1 

SERIAL-12 CRI - MENDOTA HE 
IGHTS; MINN. 06/21/79 

21:10:22 0.00OO 

CSP 

211:10:22 0.0000 CSP 

CRAY-1 OPERATING SYSTEM 
COS 1.06 ASSEMBLY, DATE J 
06/20/79 211:110' 2a 

. 0000 CSP 

211:10 = 22 
0000 CSP 

21':'10:22 0.0000 

CSP JOB(JN=BUSY,T) 

21:10:22 0.0002 
CSP CFT . 

21=10:22 0.0003 USER 
FT004 - CFT VERSION - 06/20/73 

SCHEDULER 
21=10=22 0.0015 USER 
FT001 - COMPILE TIME = 0.0012 
SECONDS 21=10:22 

0.0015 CSP LDR. 

21': 10:22 0. 
LD010 - BEGIN EX 



0025 USER 
ECUTTION 



LOCATIONS 00141154 THROUGH 0O141777 CONTAIN 0000000000000000000000 



J> 



D 



DMEM FUA=0136000 LUA=0144777 LE-0000 



DUMP ID = SYSDUMP 



FDUMP 1.06 
DATE = 06/21/79 



06/25/79 
TIME = 21:13:41 



16:58=58 
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0142000 
0142004 
0142010 
0142014 
0142020 
0142024 
0142030 
0142034 
0142O40 
0142044 
0142050 
0142O54 

0142074 
0142100 

0142404 
0142410 
f414 
N20 
M24 
t>i -12430 
0142434 
0142440 
0142444 
0142450 
0142454 
0142460 
0142464 
0142470 
0142474 
01425OO 
0142504 



00 1 774 0000000000007000 0000000000000000000000 
0000000000000000000000 0000000000000000000000 



CD 



01 



12510 



0142514 



01 » 
01 
01 < 
01 



\2B 



£0 

?A 

42530 
42534 
0142540 
0142544 
0142550 



0000000000000000000000 
03000200400000001 16000 

00000000000571 33222455 

0000000000000000000000 

042503252521 1 123647040 

0000000000000000000000 
0000000000000000000000 



0000000000000000000000 
0004160130000000145000 
0000000000000000000055 

000000141 1317731664600 

0000000000000000000000 
0000000000000000000000 
000000000000276371 1340 



02210421241 12521600000 

0000000000000000000000 
041 1252465140000000000 
0212462231431100145000 
0040000012200000004000 
0461041403046010026440 



0000000000000000000000 
0000000000000000000000 

0441 1 72524700000000001 
0735670000000000036067 

0000000060000000000000 

0411052164451610042530 



y- 







SDEBUG 

BUSY HOUN 

" I <7 

LD010 - BEGIN EX 



04253222552542012302 1 6 0425322255253643523024 



0000000000000000000000 
0700002464 1 4000002 1 4 20 



0000000000000000000000 
0000000000000000000000 



0000000000000000000000 0000000000000000000000 ECUTION 

0000000000000000000000 0000000000000000000000 
0000000000000000000000 0425 

04253222551 67434626471 
0000000000000000007000 

0000000000000000000145 



3351 67321422126 
03776761 231 63236734000 
051 1 172304604021047124 

0000000000000000000000 



EZJ EZJ 



EZJ 



SC t 



LOCATIONS 00142060 THROUGH 00142073 CONTAIN 0000000000000000000000 
0004 000000O0O000000000 0O000000000001 000O0000 00O0000640000000 14 5000 0*1 2 1 04 1 323047 1 1 323:1 463 
000000000 1100000000006 0041050204301034204162 0041640207300000000000 0000000000000000000000 

LOCATIONS O0i42104 THROUGH 00142403 CONTAIN 00000043000000000000000 



EZJ F«V 
-9? 3 
ROLL DN1* 



DD- 19-33 



E F 



1 0000007070707000000 1 6 
00000 1 0000000000 1 200O0 
0000000 1 00000000 1 0O00 1 
0000000000000000000000 

0221 1423G434000OO00001 
1 00000000000000000000 
0000000000000000000063 

1 00000070707070O0000 1 6 

000001 0000000000253000 
00000001 000000001 00004 
0000000000000000*300000 
0000000000000 1 00000000 

O037030 1 7424 076 1 6000O0 

0000000000000000000000 
0000000000000000000000 
1 0000007070707000000 1 6 
0000000000000000000000 
0000000000000000000004 
0000000000000000000000 

022 1 022304200000000O00 

0000000000000000124660 
0000000000000000 1 1 6 1 00 

1 00000070707070000001 6 

00000 1 0000000000243000 
0000000100000000100004 
0000000000000000000000 



0000000000000000004 423 
1 00 1 60000O000000000000 
0000000000000000000000 

1 0000007070707000000 1 6 
0200002405100177773321 

00OO000000000000000000 
0000000000000000000000 

0000000000442300004501 

1 000200O0000000000000O 
0000000000O00000000000 
1 00000070707070000001 6 
0000000560000000000000 
0000000000000000000000 
0000000000000000000000 



0221032460000000000001 
1 00000035222400O0 1 320 

0000000000000000000000 

1 0000007070707000000 1 6 

0000000000000000000000 
0000000O00O00000000001 
0000000000000000000000 
0221 1 12340000000000000 

0000000000000000 1 34640 

0000000000000000000000 

1000000707070700O00022 
042104 13230471 1 3231463 

0000000000000000000000 
0000000000000000000000 



0000000000000000000000 0000000000000000000000 

0000000000444100004517 0221 172525200000000000 



000 1 600000000000000000 
0000000000000000000000 
1000000707070700000016 

00000024641 40 1 77773203 

0000000000000000000000 
0000000000000000000000 



0000000000000000000000 
0000000000000000003720 
1000000707070700000016 
000001 0000000000247000 
0000000200000000000004 
0000000000000000000000 



0400002224700100020600 

0000000000000000000000 

0000000000000000000000 

0000000000440500004 -4 4 1 

0001600000000000000063 SLOG 

0000000000000000000000 

1 00000070707070O000016 

0610002464140100020600 

0000000000000000000000 
0000000000000000000000 
0004000000000100000000 
00000000011 00000000003 
0000000000000000000000 
00000001300000000000000 

1 000000707070700000022 
06000024051 00100000000 

0000000000000000000000 
0000000000000000000000 
0000000000450100004535 



*CS 



@ IN 



PR 



V 



0001600000000000000000 
0)000000000000000000001 

1 000000707070700000016 



*BLD 



0000000000451700000000 02210421241 1252160000O 0700012464140177773225 

0000000000000000124700 0000000000000000000000 
0000000000000000 11 6 1 00 0000000(300000000000000 

1 000000707070700000022 0004000000000100000000 



0001 600000000000000000 
0000000000000000000001 
1 00000070707070000001 6 



A* IN SC ! 



DD- 19-33 
! OttOUT * PR 

SC N 

SDEBUG SC 

@ 



A 3 



DMEM FWA^0136000 LWA==0144777 LE=0000 DUMP ID = SYSDUMP FDUMP 1.06 06/25/79 16*58:58 PAGE 127 

DATE = 06/21/79 TIME = 21: 13 '41 

0142554 00000000(30000100000(2x2)0 000000052000000000100(3 0421041323047113231463 0000000001:100000000001 DD-19-33 

0142560 0037100000000000000000 0000000000000000000000 000O000000000000000000 0000000000000000000000 
014 2564 C000O00O00000000000000 0000000000000(300000000 0000000000000000000000 0000000000000000000000 
0142570 0000000000000000000000 0000000000000000000000 0000000000000000000000 1000000707070700000022 

0142574 1000000707070700000022 0004 0000000001 00000O0O 0000000000000100000000 0000000520000000001000 
1 4. i .u0 0*12104 13230471 13231463 0O0O00O001 10000000(3001 0(3371 10000000000000000 0000000000000000000000 DD-19-33 
LOCATIONS 00142604 THROUGH 00142613 CONTAIN 0000OO0O00000000000000 

0U2l:.1.4 0000(100000000000000000 1000000707070700000022 0000000707070700002162 0000000000000000000000 

LOCATIONS 00142620 THROUGH 00144773 CONTAIN 00000(3000000000(3000000 

1 cj 4774 0000000000000000000000 0000(300000000000000000 0000000000000000000000 0000000707070700002 1 62 

#*** DIIEI-1 . FWA=3030O0 , L =700(3 . 






J) 



DMEM FWA=0303000 LWA=03 11777 LE=--0000 



DUMP ID = SYSDUMP 



FDUMP 1.06 
DATE = 06/21/79 



06/25/79 
TIME = 21 13=41 



16:58=58 



PAGE 128 



03O3O00 
0303O04 

030:3020 
0303024 
0303030 
0303034 
0303040 

030306O 
0303064 
0303O70 
0303O74 
0303100 

0303170 
0303174 



0415222025151000O000O0 0000000000000000072535 0000000000000217262754 000O0O0000000006340325 CRASH 

0000000000000000000004 0000000000000000000003 0000000000000000000000 0000000000000000000000 

LOCATIONS 00303010 THROUGH 00303017 CONTAIN 0000000000000000000000 



UD 



O 



J00 

no 



030:3400 
0303-104 
0303410 
0303414 
0303420 

0303500 
03035O4 
0303510 

0303600 
0303604 
0303610 

0303700 
0303704 
0303710 

03040OO 
0304004 



0000000000 1 33300000000 
0000000000000000000000 
000000000000000000001 7 
0200000000000000000000 
0002000000000000000000 



0000000031200000000021 
0000000000000000000657 
0000000000000000000020 
00000000000000000000 17 
0000000000000000000000 



0000000045001600000001 
0000000000000000000020 
0000000000000000000000 
000000000000000000004 
0000000000000000000000 



000000 1 502 1 00000000000 
0000000000000000000006 
0000000*500000000000000 
00000000000000000001 76 
0000000000000000000000 



LOCATIONS; 00303044 THROUGH 00303057 CONTAIN 0000000000000000000(300 



0000000000000000000000 
0000000000000000000000 
0000000000000000000001 

0400375321 4054 00000000 

0000000000000000000200 



0000000000000000000000 0000000000000000066657 

0000000000000000324715 0000000000000000343636 

0000000000000000000001 042 1 0721 04340000036102 
0400455051050044000000 0000040000000000000000 

0000000000000000001 074 0000000000000000000000 



0000000000000000000000 
0000000000000000000000 
0000000000000000000000 

04752021251 1O125047S22 

000000000000000000456 1 

LOCATIONS 00303104 THROUGH 00303167 CONTAIN 0000000000000000000000 

0000000000000000000000 0000000000000000000000 0000000000000000000000 0000000000000000001616 
0000000000000000000000 0000000000000000000000 0000000000000000000000 0000000000000000000000 

LOCATIONS 00303200 THROUGH 00303277 CONTAIN 0000000000000000000000 
04251 62504 2522000O00O0 1 24 1 206442S220000000O 0060 1 22504252200000000 00001 22504252200000000 



01 351 62504 25220000O0OO 01 11 162504 25220O000O00 00411G25042522000OO000 010O372504252200000000 

000000000000(3000000000 00000000y0000000000000 0000000000000000000000 0000000000000000000000 

LOCATIONS 00303314 THROUGH 00303377 CONTAIN 00000O0000000000000000 



0421160000000000000000 0501042340000000000000 

051000O000000000000000 0534000000000000000000 

04 25 1 62504 2522OO000000 OO60 1401 GO602502400000 

0114 O6042 J O03S24 GOOOOO 0114 06050O60350560000O 1 1 4 050364252324 6OOO00 

011 O24024 1 0420066O0000 00000000000000O0000000 0000000000000000000000 



0445040000000000000000 
04 64 000000000000000000 

0074 1 4 O4200O0 J 01 4 47O00 



0425040000000000000000 

05252 1 0000000000000000 

01 14060360002200042400 
01 10O205200123246000O0 

0000000000000000000000 



DGDG <B 



OPERATOR® 



©X @ 



ENTER 
NTER 



DN 

R 

ENTER 



ER 
NTER 



PDN 
U 



TER 
NTER 



TER 
TER 



ID 
M 



ESS 



LOCATIONS. 0O303424 THROUGH 00303477 CONTAIN 0O000O0000000000000000 
1000000000000000000000 0000000000000000000000 0000000000000000000000 0300000000000000000000 

0000000000000000000000 0000000000000000000000 0000000000000000000000 0000000000000000000000 
0000G00000000000000000 0300000000000000000000 0000000000000000000000 0000000000000000000000 

LOCATIONS 00303514 THROUGH 00303577 CONTAIN OOOOOOOOOOOOOOOOOOOOOO 

1000(300000000000000000 4000000000000000000000 1000000000000000000000 1000000000000000000000 
1 00000000O0000O0000000 1 000000000000000000000 1 000O00000000000000000 0000000000000000000001 

0000000000000000000001 1000000000000000000000 00000000000000000000(31 0000000000000000000000 

LOCATIONS 00303614 THROUGH 00303677 CONTAIN 0000OO0000000000000000 

000000000000(3000000660 0000000000000000000660 0000000000000000000662 0000000000000000001230 
0000000000000000000673 0000000(300000000000674 000000000000000(3000675 0000000000000000001231 
00000000000000(30001232 0000000000000000000651 0000000000O00000001642 00(30000000000000000000 

LOCATIONS 0(3303714 THROUGH 0O303777 CONTAIN OOOOOOOOOOOOOOOOOOOOOO 

0000000000000000000657 0000000000000000000660 0000000000000000000662 0000000000000000001230 
0000000000000000000673 0000000000000000000674 0000000000000000000675 0000000000000000001231 



ED 
UQ 







SS 







ASSIGN 


DN 


ft IN ■ 


A 


FT05 


LM 








DMEM FtJA=030300O LLJA=03U777 LE=O000 DUMP ID -• SYSDUMP FDUMP 1.06 06/25/79 16 = ES:58 PAGE 129 

DATE = 06/21/79 TIME = 21:13=41 

030*10 1 000000000O00000000 1 232 0000000000000000000(350 000000000000000000 1 64 2 0000000000000000000000 

LOCATIONS 00304014 THROUGH 00304077 CONTAIN OOOOOOOOOOOOOOOOOOOOOO 

0304100 00000000000000O0000657 0000000000000000000661 000000000000000000O662 0000000000000000001230 
0304104 0000000000000000000673 0000000000000000000674 0000000000000000000675 0000000000000000001231 
0304110 0000000000000000001232 0000000000000000000650 0000000000000000001642 0000000000000000000000 

LOCATIONS 00304114 THROUGH 00304177 CONTAIN 0000000000O00000000000 
03042O0 04O5232464450723400000 00000000000000O0000017 0421 160O00000000000000 00000000000O0O00000007 

0304..O4 0221 1 12340000000000000 0O000000000000O0000017 0404000000000000000000 0000000000000000000007 
03042 J 043124 1403240000000000 0000000000000000000017 0461 150000000000000000 0000000000000000000007 
030421 4 0300OO0000000000000000 0000000000000000000037 0000000000000000000000 0000000000000000000000 
LOCATIONS 00304220 THROUGH 00304317 CONTAIN OOOOOOOOOOOOOOOOOOOOOO 

0304320 0221032460000000000001 0000020000000000002000 00000000000001 00002000 0000000000000000002012 tCS 

03O4 .'24 0000000000000000003000 1000000000000000002013 0000000000000000000000 000*3200000000000000000 

0304330 10000000000000001302011 0000000000000000000000 000000003365 1400264 660 OOOOOOOOOOOOOOOOOOOOOO L 

0304334 0(500000000000000352545 00000O0026740600036102 00200000007O05000O7017 1000000000000000000000 <B 

0304340 0221142364340000000001 000O0100O0000000003000 0000000000000000003130 0000000000000000003000 #LOG X 

030-1344 0000000000000000004000 1040000000000000003127 000000000000000O000000 0000000000000000000000 W 

0304350 1040000000000000003120 0000000000000000000000 000000OO35636600000712 0000000000000000000000 P 

*""'* "' 354 00001)00000000000000000 0000000026742400036 1 02 0000000000000000000000 0000000000000000000000 < B 

io :C0 0415172405452200000000 1000000000000000000200 OOOOOOOOOOOOOOOOOOictfOO 177777777777770O0002O0 COPYR 
2^ 364 0000000000000000004200 OOOOOOOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOOOOOO 0000000000000000000000 

*"" 370 0000000000000000000000 0000000000000000000000 0000000033602000007200 0000000000000000000000 

0304374 00000000O000O000352545 177777777777777752120O 0002000000720000OO7210 00000000O000000O000000 
LOCATIONS 00304400 THROUGH 00304437 CONTAIN 0000000000000000000000 

030444 O 00O00000000000000O0000 0000000000000000263000 0000000000000000036102 0000000000000000272000 <B 

0304444 0000000000000000004520 0000000000000000335713 0000000000000000000010 0000000000000000000005 P 

7!0' I 4 50 OOOOOOOOOOOOOOOOOOOOOO 04 1 5 1 724O545220000O000 04 151 724 054 522OO000O00 0000000000000000000000 COPYR COPYR 

O304454 0000O00000001400177700 1 7777777760000000000O0 0O00000000000000 177700 000000000000 1400 177700 

03344 60 00000000130000000000000 0000000000000000000000 0000000000000000000000 0000000000000000000000 

LOCATIONS 00304464 THROUGH 00304657 CONTAIN 0O00000000000000000000 
0304660 0415172405452213400000 0000000O00000000000000 0000000000000000000000 0000000000000000000000 COPYR. 

LOCATIONS 00304664 THROUGH 003O4673 CONTAIN 00OO000000000000000000 
0304674 000000000O647500136000 0000020012600000125600 0000040O00O00000 125570 0000O000O0000000000000 = 

LOCATIONS OO304700 THROUGH 00304737 CONTAIN 0(300000000000000000000 

0304740 0000000000000000334257 0000000000000O00000000 0000000000000000000000 0000000000000000007643 

030474 4 000000000000000026744 2 0000000000000000000000 0000000000000000000000 0000000000000000000(300 " 

LOCATIONS 00304750 THROUGH 00304777 CONTAIN OOOOOOOOOOOOOOOOOOOOOO 
030500O 000000000000OO00000002 0451172O42411223436503 051 101 24644 05 100000OO0 103O00000000000O000003 JOB( JN=CRASH) 
03050O4 04 05O32064 252324 624 lO'l 0470752064752026251054 0425162504 2522 I 220OO0O 10200000000000O0000001 ACCESS (DN=COPYR, ENTER) 
03O501O 0415172405452213400000 1O200OO000000000000001 04253022252056(30000000 1030000000000000000001 COPYR. EXIT. 

03050 1 4 0. 1 253O2225205600000000 1 03000000(3000000000000 1 eOOOOOOOOOOOOOOOOOOOO 1 7000(30000000000000000 EXIT:. 

O30502O 00000000O000O000000000 0000000000000000000000 0000000000000000000000 0000000000000000000000 



J; 



XI 



DMEM FUA=0303O00 LWA=03i;i777 LE-0000 



DUMP ID = SYSDUMP 



FDUMP 1.06 
DATE = 06/21/73 



06/25/79 
TIME = 21:13:41 



16:58:58 



PAGE 130 



0306000 
0306004 
0306010 
0306014 
0306020 
0306024 
0306030 
0306034 
0306040 
0306044 
0306050 
0306054 
O3U6O60 
0306064 
0306070 
0306074 
~~^6i0O 

^ pno 

^ pi 14 

0306124 
0306130 



LOCATIONS 00305024 THROUGH 00305777 CONTAIN' 0000000000000000000000 
0000000000000000000016 0200401002004010020040 0310611643046216431062 0200401002004010030056 
0300601403004010020040 0415232402004010020040 0200401002004010020040 0415222025445514220040 
0515052444450123026461 0310401002004010020040 0415222222005510046505 0471042365210110044105 
0445072205212313020115 0445162342704010020040 0300661363106113633471 10000000000000000000O6 
0200401002004010020040 0310611643046216431062 0200401002004010030056 0300601403004010020040 
0415232402004010020040 0200401002004010020040 1000000000000000000016 0200401002004010020040 
0310611643046216431062 0200401002004010030056 0300601403004010020040 0415232402004010020040 
0200401O02004010020040 0415222025445514220040 047S2021251 10125044516 0434402465452325042515 
0200401002004010020040 04151724620061 13430066 0200402025152321246502 0461311004210125042440 
0300661363106013633471 1 000000000000000000006 0200401002004010020040 031061.1643046216431062 
0200401002004010030056 03OO60 1 4030040 1OO20040 0415232402O04O10020040 0200401 0020O40 10020040 
1000000000000000000006 0200401002004010020040 031061 16430*46216431062 0200401002004010030056 
0300601403004010020040 04 152324 02004 Ol 002004 O 02004010020O401O020040 100000000000000(3000007 0000 
020040 100200401 0020040 031061 1643046216431062 020040100200401 0030O56 0300601403004010020040 
04 152324 0200*1 01 0020O40 0451 1720424 11223436503 051 10124644OSI 10020040 100000000O00000O000010 CSP 
02004010O2004010020O40 031061 1643046216431062 02004 01 0O200401003OO56 0300601403104010020040 
04 152324020O-1010020040 0405032064252324624 104 0470752064752026251054 0425162504252212220O40 



10000000O0000000000013 O20O4 01002004010020040 031061 1643O46216431062 020*3401002004010030056 
030060 1 403 1 4401 0O2004 0501 04 2322004 1 002004 0501 04 14 030061 1 00264 4 04 0503206425232462004 
04 15172405452210020010 0200401002004010020040 042504 17230060 1403 14 40 041517232501 1421252105 



1000000000000000000006 0c'0040100200401002O040 031061 1643046216431 062 
03O06O 1 403 1 4401 002004 04 1 52324020040 1 002004 04 1 5 1 724054 522 1 3420O40 



02OO40 1 O02004 1 0030056 
1000000000000000000000 0003 



21:12=22 0. 
0000 CSP CRAY-1 

SERIAL-12 CRI - MENDOTA HE 
IGHTS, MINN. 06/21/79 

21:12-22 0.0000 
CSP 
21:12:22 0.0000 CSP 

CRAY-1 OPERATING SYSTEM 

COS 1.06 ASSEMBLY DATE 
06/20/79 21=12:22 

0.00O0 CSP 

21:1222 0. 

CSP 

21.12:22 0.0000 

JOB(JN-CRASH) 

21=12:22 0.0002 

CSP ACCESS (DH^COPYR, El ITER) 

21 =12 22 0. 
0003 PDM PD001 - iiCOESS 
COPYR EDp=0003 COMPLETE: 

21:12:22 O. 
CSP COPYR . 



00000000000000000000(30 0000000000000000000000 0000000000000000000000 0000000000000000000000 

LOCATIONS 00306134 THROUGH 003O6777 CONTAIN 0000000000000000000000 

0307OO0 0017770000000000007000 0000000000000000000000 0000000000000000000000 0000000000000000000000 

LOCATIONS: 003070O4 THROUGH OO3074O3 CONTAIN OOOOOOOOOOOOOOOOOOOOOO 
1 000000707070700O000 1 6 00O000000O000000004 4 23 022 1 0324600000(3000000 1 04 0000222470020002 1400 



O307404 
0307410 
0307414 
03O7420 
03O7424 
03O7430 
O307434 
03O7440 
0307444 
0307450 
0307454 
030746O 
0307464 
0307470 
0307474 



$CS 



IN # 



O0O0O1 000OO000O02650O0 

0000000100000000100001 
0000000000000000000000 

022 1 1 4236434 0000O000O 1 



10016O000O0000O00O0O00 0100000035222400001320 000000000000000000O000 

0000000000000000000000 0000000000000000000000 0000000000000000000000 

1 0000007O707070000O0 1 6 0000000000*14 050000:144 1 
0000000000000000000000 000 1 600000000000000063 



100000070707070000001 6 

02000024 05 1 0027777332 1 

0100000000000000000000 0000000000000000000000 0000000000000000000001 
0000000000000000000063 0000000000000000000000 0000000000000000000000 

10O0000707070700000016 000000000O442300004501 

1000200000000000000000 0000000000000000134640 0000000000000000000000 



0000000000000000000000 

1 00000070707070O00001 6 
0221 1 123400000000OO000 0610002464140200021400 



SLOG PR 
3 



0000010000000000420000 
00000001000000001 00004 

0000000000000000000000 



0000000000000000000000 0000000000000000000000 0000000O000O00000000O0 

■1000000707070700000016 100O00070707070000O022 00O4 000000000200000000 

0000000000000100000000 000000056000000000000(3 04210413230471 13231463 0000000001100000000003 

0037200175040764400000 0000000000000000000000 000O000O00000000000000 0000000000000000000000 

0000000000000000000000 0000000000000000000000 0000000000000000000000 0000000000000000000000 
0000000000000000000000 0000000000000000000000 0000000000000000000000 1000000707070700O00022 



AS IN 



DD-19-33 



SC # 



DMEM FLkV-0303000 LWA=03 11777 LE=0000 DUMP' ID = SYSDUMP FDUMP 1.06 06/25/79 16:58 = 58 PAGE 131 

DATE = 06/21/79 TIhE = 21:13:41 

0307500 1000000707070700000016 0000000000444100004517 0221172525200000000000 0600002405100200000000 ! OSOUT * PR 

0307504 0000O00000000000000000 000 1 600000000000000000 0000000000000000000000 0000000000000000000000 
0307510 0000000000000000000004 0000000000000000000000 0000000000000000003720 0000000000000000000000 

0307514 0000000000000000000000 1000000707070700000016 1000000707070700000016 0000000000450100000000 A 

0307520 0415172405452200000000 1000002464140177773243 0000020000000000272200 1000200000000000000000 COPYR SC 

0307524 0040000000000000001360 0000000000000000000000 00000001000000130200004 0000000000000000000004 

0307530 0000O000004000001 16100 0000000000000000000000 0000000000000000000000 1000000707070700000016 © 

0307534 1000000707070700000022 000400O000000200000000 0000007424000100035405 0000000520000000004000 @ ; 

0307540 0421041323047113231463 00000000011 00000000001 0020130000O00000000000 0000000000000000000000 DD-19-33 

LOCATIONS 00307544 THROUGH 00307553 CONTAIN 0000000000000000000000 
0307554 00000000000000O00O0000 100000070707O700000022 00000O0707070700002222 00000000000000O0000000 

LOCATIONS 00307560 THROUGH 00311773 CONTAIN 0000000000000000000000 

031 1774 0000000000000000000000 0000000000000000000000 0000000000000000000000 0000000707070700002222 



CO 



USER ERROR EXIT 



A JOB EXECUTES AN ERROR EXIT (ERR) INSTRUCTION OR ENCOUNTERS 
A HARDWARE DETECTED ERROR 



EXP ISSUES APPROPRIATE ERROR MESSAGES 



EXP MAY INITIATE JOB ABORT OR REPRIEVE PROCESSING 



EXP MAY SEARCH THE REMAINING JOB CONTROL STATEMENTS FOR AN 
EXIT OR END-OF-FILE 



IF EXIT IS FOUND EXP EXAMINES THE NEXT STATEMENT 



IF THE NEXT STATEMENT IS 'DUMPJOB' A DATASET NAMED $DUMP 
IS WRITTEN TO DISK IN BINARY 



$DUNP IS A BINARY UNBLOCKED DATASET AND CONTAINS THE JTA AND 
ENTIRE USER FIELD (BA-LA) OF THE ABORTED JOB 



$DUMP MAY THEN BE USED BY THE 'DUMP' CONTROL STATEMENT TO 
OUTPUT VARIOUS AREAS OF THE ABORTED PROGRAM 

IF REPRIEVE PROCESSING, EXP TRANSFERS CONTROL BACK TO THE 
USER JOB AT THE ADDRESS SPECIFIED IN THE REPRIEVE MACRO 



9,15 




DETERMINE 
ROUTINE ADDRESS 
FROM CALL TABLE 




NEP3 



SET LA 
ADDRESS 



i 



EXECUTE 

CALLED 

ROUTINE 



i 



ZERO JTEPJ 

IN THE 

USER JTA 



i 



EXIT 




EPTK1 



SET FOR 

SUSPEND CALL 

TO EXEC 



i 



EXIT 



ABTJ1 




9.17 



MESSAGE PROCESSOR (MSG) 



MESSAGE PROCESSOR (MSG) 



WRITES MESSAGES IN THE SYSTEM AND USER LOG FILES. 



CAN BE CALLED BY OTHER TASKS AND USERS (THROUGH EXP). 



MSG USES TIO WHEN PERFORMING I/O. 



THE SYSTEM LOG CAN BE ANALYZED BY THE 'EXTRACT' PROGRAM. 



USERS CAN ENTER MESSAGES IN THE SYSTEM AND/OR USER LOG. 



10.1 



SYSTEM LOG PROCESSING 

9 THE SYSTEM LOG IS A PERMANENT DATASET NAMED $SYSTEMLOG 

9 THE SYSTEM LOG BUFFER AND DSP ARE ALLOCATED IN HIGH 

MEMORY. 
® A TASK CALLS MSG THROUGH THE TSKREQ ROUTINE WITH THE 

FOLLOWING REGISTERS SET: 



(Al) 
(A2) 

(si) 

(S2) 



ID of task requesting message entry 
MSG ID ,0 



INPUT+O 
INPUT+1 



request 



Request format: 
o 2 






Field 


Word 


Bits 


Description 






FC 


INPUT+O 


0-1 


Function code: 










1 Write message in user's logfile 
only 

2 Write message in SYSTEMLOG only 

3 Write message in both user's 
logfile and in SYSTEMLOG 




TYPE 


INPUT+O 


19-27 


Major class of log record 




SUB 


INPUT+O 


28-33 


Subtype of log record 




LENGTH 


INPUT+O 


34-39 


Length in words of message. If length is 
0, the message is a character string 
terminated by a zero byte in the low- 
order eight bits. 




ADDR 


INPUT+O 


40-63 


Starting address relative to STP of 
message to be written 




JXT 


INPUT+1 


46-63 


JXT address if message associated with 
job; otherwise 




Reply fo 

OUTPUT+0 
OUTPUT+l 

Field 


rmat: 

3 1 




6: 


5 




y////////////////^^^^^ 






DONE 




"~~~ 


Word 


Bits 


Description 






DONE 


OUTPUT+1 


0-63 


Characters 'MSG DONE' in ASCII 
10.3 



USER LOG PROCESSING 



THE USER LOG ($LOG) IS CREATED BY JSH FOR EACH USER JOB. 



• THE USER LOG BUFFER IS IN THE JOB'S JTA. 



THE USER CALLS MSG VIA THE 'MESSAGE' MACRO: 



MESSAGE - ENTER MESSAGE IN LOGFILE 

The printable ASCII message at the location specified in the macro call 
is entered in the job and system logfile. The message must be 1-80 
characters terminated by a zero byte. A flag, loc, indicates the des- 
tination for the message. 

Format: 



Location 


Result 


Operand 




MESSAGE 


address j loc 



address A symbol or an A, S s or T register that contains 

the address. 

loc Destination for message. May be any of the following: 

U User logfile only 
S System logfile only 

US User and system logfiles; default, if loc is 
blank. 



10.5 



MEMORY ERROR PROCESSOR (MEP) 



DISK ERROR CORRECTION (DEC) 



MEMORY ERROR PROCESSOR (PEP) 

PURPOSE IS TO RELAY MEMORY ERROR INFORMATION FROM 
EXEC TO MSG. 

MESSAGES FROM EXEC TO MSG ARE IN THE FORMAT: 





2 8 


16 32 i 


*0 


63 





JN 


1 


*£^ R 


^^////////A SYN 


ERR AODR 


2 


^^^ 


BA 


P 


3 


RTC 



Field 


Word 


Bits 


Significance 


JN 





0-63 


Jobname or 'STP' 


E 


1 


0,1 


Error type (binary): 

10 Uncorrectable memory error 
01 Correctable memory error 


R 


1 


8-15 


Read mode: 

Scalar 

1 I/O 

2 Vector 

3 Fetch 


SYN 


1 


32-39 


Syndrome bits 


ERR ADDR 


1 


40-63 


Error address 


BA 


2 


26-39 


Base address 


P 


2 


40-63 


Program address 


RTC 


3 


0-63 


Real-time clock 



11.1 



DISK ERROR CORRECTION (DEC) 



ATTEMPTS CORRECTION OF A DATA ERROR FROM DISK. 
USES CYCLIC REDUNDANCY CHECKWORDS (CRC) FOR ERROR CORRECTION. 
DOM SCHEDULES DEC IF NORMAL RECOVERY PROCEDURES ARE UNSUCCESSFUL. 
DQM PASSES THE EQT ADDRESS WHICH CONTAINS THE VALID CHECKWORDS. 
DEC PROCESSES ONE DISK ERROR AT A TIME. 



REFER TO MASS STORAGE SUBSYSTEM REFERENCE MANUAL 2210630 FOR 
THE CRC ALGORITHM. 



11.3 



SYSTEM PERFORMANCE MONITOR 



SYSTEM PERFORMANCE MONITOR 

• MEASURES OVERALL SYSTEM PERFORMANCE 

• INVOKED ON A TIME DELAY BASIS 

• DELAY INTERVAL BETWEEN COLLECTIONS IS (laSPMDLY) 

• USES MESSAGE TASK TO WRITE SYSTEM TIMES TO THE SYSTEMLOG 

• USES POOL 1 AS A BUFFER FOR THE SYSTEM TIMES 

• MEASUREMENTS COLLECTED BY SPM INCLUDE 

CPU UTILIZATION 

NUMBER OF TASK READIES 

NUMBER OF EXEC REQUESTS BY TASK 

NUMBER OF EXEC REQUESTS BY TYPE 

MEMORY UTILIZATION 

CHANNEL INTERRUPT COUNT 

DISK CHANNEL UTILIZATION 

DISK UNIT UTILIZATION 

LINK UTILIZATION 

USER CALL USAGE 

JOB SCHEDULER STATISTICS 

JOB CLASS STATISTICS 



12.1 



ii 12 ee. 9094 



EXECUTIVE REQUESTS 

NUMBER OF TASK 
NUMBER OF TASK 
NUMBER OF TASK 
NUMEER OF TASK 
NUMBER Or TASK 
NUMBER OF TASK 
NUMBER OF TASK 
NUMBER OF TASK 
NUMBER OF TASK 
NUMEER OF TASK 



TIME INTERVAL = 60812.18 MILLISECONDS 



REQUESTS 


= 





1 REQUESTS 


= 


313 


2 REQUESTS 


=. 


1370 


3 REQUESTS 


= 


266 


4. REQUESTS 


= 





5 REQUESTS 


m 


715 


6 REQUESTS 


= 


S76 


7 REQUEST? 


= 





8 REQUESTS 


= 


21 


9 REQUESTS 


= 


PPTR 



NUMBER OF TASK 10 REQUESTS = 



Jl- 12 02.9096 



TASK UTILIZATION 


TIME INTERVAL = 


NUMBER OF TASK 


READIES = 





NUMBER OF TASK 


1 READIES = 


129 


NUMBER OF TASK 


2 READIES = 


4SS 


NUMBER OF TASK 


3 READIES = 


86 


NUMBER OF TASK 


4 READIES = 





NUMBER OF TASK 


S READIES = 


297 


MJMBER OF TASK 


6 READIES = 


156 


NUMBER OF TASK 


7 READIES = 





NUMBER OF TASK 


8 READIES = 


3 


NUMBER OF TASK 


9 READIES = 


410 


NUMEER OF TASK. 


10 READIES = 






60012.13 MILLISECONDS 



11 12 02 9099 



CPU UTILIZATION 




TIME 


INTERVAL = 60012 18 MILLISECONDS 


USER 


TIME = 




60134 40 


MSEC 


100 20% 


IDLE 


TIME = 




00 


MSEC 


0.00V 


BLOCKED TIME 


■= 


00 


MSEC 


00* 


EXEC 


TIME = 




151 90 


MSEC 


0.2b* 


TAliV 


TIME 


- 


00 


MCEC 


00V. 


TASK 


1 TIME 


= 


16 42 


W1EC 


03* 


TASK 


2 TIME 


= 


25 84 


MSEC 


04* 


TASK 


3 TIME 


= 


4 39 


MSEC 


01* 


TASK 


4 TIME 


= 


00 


MSEC 


00 -■'■ 


TASK 


5 TIME 


= 


14 35 


MSEC 


02* 


TASK 


6 TIME 


= 


17 61 


MSEC 


03'. 


TASK 


7 TIME 


= 


00 


MSEC 


00--". 


TASK 


8 TIME 


r- 


41 


MSEC 


00* 


TASK 


9 TIME 


= 


48 38 


MTEC 


03:< 


TASK 


10 TIME 


- 


00 


MSEC 


00* 


TIME 


NOT ACCOUNTED 


FOR = 


-408 


02 MSEC -0 67X 



END OF EXTRACT REPORT 



43892 RECORDS READ FROM ISYSLOG 



49 RECORDS WRITTEN ON SOUT 



Listing of all subtypes of SPM records 



12.3 



111202.9087 



CHANNEL INTERRUPT COUNTS 



CHANNEL 


e 


3 


O 


channel 


l 


3 





CHANNEL 


2 


3 


118 


CHANNEL 


3 


s 


116 


CHANNEL 


4 


■ 


611 


CHANNEL 


5 


a 


694 


CHANNEL 


6 


■ 


1819 


CHANNEL 


7 


a 


1090 


CHANNEL 


8 


3 





CHANNEL 


9 


a 





CHMML 


10 


3 





CHANNEL 


11 


a 





CHANNEL 


12 


a 





CHANNEL 


13 


a 





CHANNEL 


14 


a 





CHANNEL 


IS 


a 





CHANNEL 


16 


a 






TIME INTO***. 


3 


60032.18 MILLISECONDS 


CHANNEL 17 


* 





CHANNEL 18 


- 





CHANNEL 19 


* 





CHANfCL 20 


3 





CHANNEL 21 


a 





rWMCL 22 


a 





CHANNEL 23 


a 





CHANNEL 24 


a 





CHANNEL 25 


s 





CHANNEL 26 


a 


9627 


CHANNEL 27 


a 





CHANNEL 28 


a 





CHANNEL 29 


a 





CHANNEL 30 


a 


436 


CHANNEL 31 


a 





CHANNEL 32 


a 





CHANNEL 33 


a 






11:12: 



EXEC CALL USAGE 

NUMBER OF TYPE CALLS * 
NUMBER OF TYPE 1 CALLS * 
NUMBER OF TYPE 2 CALLS » 
NUMBER OF TYPE 3 COLLS * 
NUMBER OF TYPE 4 CALLS 3 
NUMBER OF TYPE 5 CALLS * 
NUMBER OF TYPE 6 CALLS « 
NUMBER OF TYPE 7 CALLS = 
NUMBER OF TYPE 8 CALLS » 
NUMBER OF TYPE 9 CALLS = 
NUMBER OF TYPE 10 CALLS = 
NUMBER OF TYPE 11 CALLS a 
NUMBER OF TYPE 12 CALLS = 
NUMBER OF TYPE 13 CALLS » 
NUMBER OF TYPE 14 CALLS a 
NUMBER OF TYPE IS CALLS » 
NUMBER OF TYPE 16 CALLS a 



TIME INTEHMAL * 88642.18 MILLISECONDS 







906 

1172 



104 

370 



24 

176 

24 





10* 

307 

307 

1997 



NUMBER OF TYPE 17 CALLS a 

NUMBER OF TYPE 18 CALLS * 

NUMBER OF TYPE 19 CALLS « 

NUMBER OF TYPE 20 CAULS « 

NUMBER OF TYPE 21 CALLS = 

NUMBER OF TYPE 22 CALLS * 

NUMBER OF TYPE 23 CALLS 3 

NUMBER OF TYPE 24 CALLS 3 

NUMBER OF TYPE 25 CALLS = 

NUMBER OF TYPE 26 CALLS s 

NUMBER OF TYPE 27 CALLS 3 
NUMBER OF TYPE 28 CALLS 3 
NUMBER OF TYPE 29 CALLS - 
NUMBER OF TYPE 30 CALLS 3 
NUMBER OF TYPE 31 CALLS = 
NUMBER OF TYPE 32 CALLS 3 



W = 12«.903B 



DISK CHANNEL UTILIZATION 



TIME INTERVAL * 



60012 18 MILLISECONDS 



CHANNEL 





a 


00 MSEC 


005! 


CHANNEL 


1 


a 


00 MSEC 


00K 


CHANMEL 


2 


a 


2559 79 MSEC 


4. 2754 


CHAN>EL 


3 


= 


1426.73 MSEC 


2.33* 


CHANNEL 


4 


3 


00 MSEC 


C«!B'. 


CHANNEL 


5 


= 


0.00 MSEC 


0.00* 


CHANNEL 


6 


3 


0.00 MSEC 


0.0OJJ 


CHANNEL 


7 


= 


0O MSEC 


0.00K 


CHANNEL 


8 


3 


0.00 MSEC 


0.005S 


CHANNEL 


9 


3 


00 MSEC 


0.O0X 


CHANNEL 


10 


3 


00 MSEC 


00% 


CHANNEL 11 


a 


00 MSEC 


0.00X 



Listing of all subtypes of SPM records (continued) 



12.4 



54:24.8568 MEMORY UTILIZATION TIME INTERVAL = 300006. 12 MILLISECONDS 

EXECUTE MEMORY INTEGRAL - 0. 103S55S0E+02 MWS 8.344 X UTILIZATION 

I/O WRIT MEMORY INTEGRAL = 0. 137308 10E+02 MWS 11.860 X UTILIZATION 

CPU WAIT MEMORY INTEGRAL = 28333443E-H32 MWS 24.473 X UTILIZATION 

AUAILABLE MEMORY INTEGRAL - 0. 11577S5SE+03 MWS 



0& 54: 24. 8570 



DISK UTILIZATION 



TIME INTERVAL - 300006. 12 MILLISECONDS 



LDV 


RATE 


XSEEK 


rTRANS 


V. TOTAL 


# REOS 


# ON-CYL 


V. FREE 


Z PERM 


BLKS/REQ 


DD- 19-20 


0. 103857 


MWDS/S 


38. 34 


23 


50 


67.34 


S3- 


\3 


773 


6. 76 


0. 00 


11.38 


DD- 19-30 


. 064985 


MWDS/S 


9.09 


14 


75 


23.85 


34" 


"6 


290 


12.26 


0. 00 


10. 9^ 


DD- 19-40 


0. 104673 


MWDS/S 


11.78 


27 


04 


38.32 


320? 


376 


23. 22 


0. 00 


13. 12 


DD- 19-50 


000000 


MWDS/S 


. 00 





00 


. 00 




fl 





100. 00 


0.00 


. 00 


DD-29-Z1 


0.032098 


MWDS/S 


3. 72 


7 


91 


17.63 


is: 


IS 


266 


56. 03 


0.00 


12.22 


DD- 19-31 


0.040775 


MWDS/S 


9 . 40 


11 


62 


21 . 03 


24: 


_'b 


288 


32. 09 


00 


9.85 


DD-19-41 


0. 007004 


MWDS/S 


8 39 


4 


73 


13 12 


218S 


713 


20. 15 


0. 00 


1 . 88 


DD- 19-51 


0.000000 


MWDS/S 


. 00 





09 


00 










100.130 


. 00 


. 00 


DD-13-22 


0. 000000 


MWDS/S 


. 00 





00 


. 00 










100.00 


0. 00 


0. 00 


DD- 19-32 


. 000000 


MWDS/S 


. 00 





00 


0. 00 




M 





100. 00 


. 00 


. 00 


OD-19-42 


. 000000 


MWDS/S 


. 00 





00 


00 




n 





100.00 


0. 00 


. 00 


DD-1'3-52 


. 000000 


MWDS/S 


0.00 





00 


0. 00 










100.00 


0.00 


. 00 


DD-10-23 


. 000000 


MWDS/S 


90 





00 


. 00 




;_i 





100. 00 


. 00 


. 00 


DD- 19-33 


000000 


MWDS/S 


. 00 


c 


00 


00 




M 





100.00 


0.00 


. 00 


DD-19-43 


000000 


MWDS/S 


00 





00 


0. 00 










100 00 


0. 00 


. 00 


DD- 19-53 


000000 


MWDS/S 


00 





00 


00 










100. 00 


0.00 


. OO 



O 353332 MWDS/S 



"1.61 



0.00 



54: 24 


S577 


LINK UTILIZATION 




TIME INTERVAL 


- 


300906. 12 MILLISECONDS 


INK 


TOTAL * 


GR.0SS PfiTE 


-* 


WPUT DATA 


NET RATE— 


— 


-INP 


JT DATA NET RATE- 


DNT 


MESSAGES 


C MBTTSVS ) 


WORDS SENT 


C MBITS/S ) 


WORDS 


ROOD (MBITS/S) 


M6 


152 


001105 




3239 


. 000704 






SS 300012 


US 


1372 


0. 014410 




34197 


3.007235 






163S5 0.003602 


IC 


2313 


0. 0SS560 




4903 


0. 001046 






206 . 300044 


EB 


3 


0. 000000 







. 000000 






000000 


DG 


736 


0. 003017 




4486 


0.000957 






104 1300022 


IB 


63 


0.000220 




254 


0.000056 






10 308002 



Listing of all subtypes of SPM records (continued) 



12.5 



EXTRACT VERSION 1 . 10 



COMPILED 05/30/31 RUN 05/04/81 110BZ1 OM SY3TEML0G 06/04-"81 



08: S4 24. 8581 



USER CALL USRGE 
NUMBER OF TYPE 
NUMBER OF TtPE 
MJMBER OF TfFE 
MJMBER OF TrPE 
MJMBER OF TrPE 
NUMBER OF TYPE 
MJMBER OF TtPE 

mjmber of type 
mjmber of type 

NUMBER OF TrPE 
MJMBER OF TYPE 
NUMBER OF TYPE 
NUMBER OF TYPE 
NUMBER OF TYPE 
NUMBER OF TYPE 
NUMBER CF TYPE 
NUMBER OF TYPE 
NUMBER OF TtPE 
NUMBER OF TYPE 
NUMBER OF TYPE 
NUMBER 'OF TYPE 
NUMBER CF TtPE 
NUMBER OF TYPE 
NUMBER OF TYPE 
r*JMBER OF TYPE 



CALLS 
CALLS 
CALLS 
CALLS 
CALLS 
CALLS 
CALLS 
CALLS 
CALLS 
CALLS 
10 CALLS 
1.1 CALLS 

12 CALLS 

13 CALLS 

14 CALLS 

15 CALLS 

16 CALLS 

17 CALLS 
13 CALLS 

19 CALLS 

20 CALLS 

21 CALLS 

22 CALLS 

23 CALLS 

24 CALLS 



TIME INTERVAL 



1 

92 

83 

691 

2720 

7 



555 

26 

178 

533 

480 



2099 

n 

39 

46 

2105 

325 

3 

2 

11Q773 

11 



300006 1 
NUMBEP OF 
NUMBER CF 
NUMBEP OF 
NUMBEP OF 
MJMBEF CF 
MJMBER OF 
NUMBER CF 
NUMBER CF 
NUMBER OF 
MJMBER CF 
NUMBER CF 
NUMBER OF 
NUMBER OF 
NUMBER CF 
NUMBER CF 
NUMBER CF 
NUNI3ER CF 
NUMBER OF 
NUMBER OF 
NUMBER CF 
NUMBER CF 
NUMBER CF 
NUMICR OF 
NUMTCR CF 



2 MILLISECONDS 
TYPE 25 CALLS - 



TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 



CALLS 
CALLS 
CALLS 
CALLS 
CALLS 
CALLS 



31 

TYPE 32 CALLS 
TiPE 33 CALLS 
TYPE 34 CALLS 
TYPE 35 CALLS 
TtPE 36 CALLS 
TYPE 37 CALLS 
TYPE 38 CALLS 
TyPE 33 CALLS 
TYPE 40 CALLS 
TYPE 41 CALLS 
TYPE 42 CALLS 
TYPE 43 CALLS 
TYPE 44 CALLS 
TYPE 45 CALLS 
TYPE 46 CALLS 
TtPE 47 CALLS 
TYPE 43 CALLS 





8 
13832 
ID 





778 

21 





1 

204 
8 


88 
9 


312 

203 





08: 4& 24. 3523 



JOB 


CLASS STATISTICS 


TIME 


irfTERUAL 


2O0006. 


14 


MILLISECONDS 




CLASS NAME - 






OPEPATR 










MJMBER OF ACTIVE JXT5 - 















NUMBER OF JOBS 


WAITING FOR 


JXTS - 


3 










NUMBER OF RESERVED JXTS - 




1 










MAXIMUM MUMEER 


of t.:ts - 




S4 










•STATUS - 






ON 









08: 54: 24. 3586 JOB SCHEDULER STATISTICS TliC INTERVAL 

riUMBER OF MEMORY COMPACTS - 
NUMBER OF ROLLS - 
MJMBER OF EXPANDS - 
MJMBER OF REDUCES - 
MJMBER OF INITIATES - 
NUMBER CF TERMINATES - 
MJMBEP CF SCHEDULING INTERVALS - 
f«JMBER OF INDEX WRITES - 
CLASS STRUCTURE NAME - 
NUMBER OF ICES IN SYSTEM - 
NUMBER CF ACTIVE JXT5 - 
MAXIMUM * JXTS ■ LIMIT J 
NUMBEP CF AVAILABLE POOL JXTS - 
MJMBER OF DEFINED CLASSES - 
NUMBEP OF CLASSES WAITING FOP JXTS 



100006.12 MILLISECONDS 
S756 
1263 
14 



SO 
212 



DAY 



14 

35535 



Listing of all subtypes of SPM records (continued) 
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OVERLAY MANAGER 



OVERLAY MANAGER (OVM) 



CONTROLS THE LOADING OF TASK OVERLAYS. 



EACH TASK USING OVM MUST RESERVE A MEMORY AREA SUFFICIENT 
TO HOLD ONE OR MORE DISK BLOCKS (512 WORDS) AS AN OVERLAY 
AREA. 



OVERLAYS MAY BE NESTED UP TO TEN DEEP, THAT IS OVERLAY X 
MAY CALL OVERLAY Y, ETC. 



AN OVERLAY MAY CALL ANOTHER OVERLAY WITH OR WITHOUT RETURN 
REQUESTED TO ITSELF. 



Q ONCE IN MEMORY AN OVERLAY MAY OR MAY NOT BE RELOADED FROM 

DISK DEPENDENT ON CHANGES IN INTERNAL CODING OR TABLES WITHIN 
THE OVERLAY. 



EACH CALLED OVERLAY OVERWRITES THE TASKS OVERLAY AREA WITH 
THE REQUESTED OVERLAY. 



13.1 



JOB CLASS MANAGER 



JOB CLASS MANAGER (JCM) 

VALIDATES JOB CLASS QUALIFICATIONS AND ASSIGNS A JOB TO 
A CLASS. 



LINKS JOB INPUT QUEUE ENTRIES IN THE SDT BY CLASS RANK, 
JOB PRIORITY, AND TIME SUBMITTED. 



OPTIONALLY REPLACES EACH JOB STATEMENT PRIORITY WITH THE 
CLASS RANK PRIORITY. 



ASSIGNS THE NUMBER OF AVAILABLE JOB EXECUTION TABLE (JXT) 
ENTRIES FOR EACH SPECIFIED JOB CLASS. 



ONCE A JOB HAS A JOB EXECUTION TABLE (JXT) ENTRY, ITS CLASS 
ASSIGNMENT DOES NOT CHANGE UNLESS THE JOB IS RERUN. 



A USER MAY LOWER A JOB CLASS THROUGH A PARAMETER IN THE JOB 
CONTROL STATEMENT. 



ENABLED /DISABLED THROUGH OPERATOR COMMANDS. 



15.1 



TAPE QUEUE MANAGER 



TASK TO BE PROVIDED 



16.1 



CONTROL STATEMENT PROCESSOR (CSP) 



CONTROL STATEMENT PROCESSOR (CSP) 



• BINARY COPY OF CSP RESIDES IN MEMORY IMMEDIATELY ABOVE STP 
OR OPTIONALLY ON DISK(S). 



WHEN A USER JOB IS SUBMITTED JSH CALLS EXP TO COPY CSP 
INTO THE USER FIELD (AT BA+200 8 ). 



CSP EXECUTES IN THE USER FIELD AND IS SUBJECT TO USER 
JOB STATES. 



• CSP SHARES THE USER TABLES SUCH AS THE JTA, JCB, DSP's, ETC, 



CSP 'CRACKS' USER CONTROL STATEMENTS. 



CSP ENTERS MESSAGES INTO THE LOGS THROUGH THE MESSAGE MACRO. 



17.1 



Example 

The control statement 



ASSIGN (DN=MYFILE,BS=25) 



IS STORED IN THE JCB AS FOLLOWS: 







15 
16 



















A 


s 


S 


I 


G 


N 


( 


D 


N 


= 


M 


Y 


F 


I 


L 


E 


9 


B 


S 


= 


2 


5 


) 





























































• 
































A 


s 


S 


I 


G 


N 





























17^ 


D 


N 









































07 


M 


Y 


F 


I 


L 


E 





























17 8 


B 


S 









































07 


2 


5 



































o 1 





37 8 



17.3 




BGN 



ENTER A HEADLINE 

MESSAGE 

IN LOGFILES 



F$GNS 



I 



MOVE JOB 

STATEMENT 

FROM JTA TO JCB 



A 



ENTER THE 
STATEMENT 
INTO LOGFILES 



$CS 



i 



'CRACK' 

THE JOB 

STATEMENT 




SET JOB 
PARAMETERS 




OPEN $OUT, 
$IN. ASSIGN 
ALIASES FT06,FT05 




FSQNS 




MOVE NEXT 

STATEMENT 

FROM JTA 

TO JCB 





ENTER ACCOUNTING 
INFORMATION 
INTO LOGFILES 



I 



SET UP 
TERMINATE 
CALL F$TRM 



ENTER THE 

STATEMENT 

NTO LOGFILES 



$CS 



I 



I 



EXIT 



'CRACK' 
THE STATEMENT 




PROCESS 
THE CSP VERB 



17.5 



READ THE 

DATASET INTO 

THE USER FIELD 




EXECUTE 
THE DATASET 



i 



MOVE CSP 

INTO THE 

USER FIELD 




FRONT END 




.. Memory \ 
7 Error * 
Processor ; 



18.1 



J0B,JN=EXAMPLE,P=3. 

ACCESS, DN=TEMP, PDN=MASTERF I LE^ R=SECRET . 

ASSIGN,DN=TEMP,BS=12. 

COPYD, I=TEMP, 0=COPY. 

DISPOSE, DN=COPY, SDN=BACKUP, DC=ST, MF=A . 

EXIT. 

EOF. 



1. JOB IS STAGED FROM FRONT-END TO CRAY-1. 

2. STATION CALL PROCESSOR (SCP) RECEIVES JOB AND PLACES 

IT IN THE SYSTEM DATASET TABLE (SDT) WHICH IS THE INPUT 
QUEUE FOR JOB SCHEDULER. SCP ALSO SAVES JOB IN THE 
DATASET CATALOG (DSC). 

3. JOB SCHEDULER PICKS THE JOB FOR EXECUTION FROM SDT AND 
THEN MAKES AN ENTRY FOR THE JOB IN THE JOB EXECUTION 
TABLE AND ALLOCATES MEMORY. 

4. JOB SCHEDULER CONNECTS THE JOB TO CPU. 

5. CONTROL STATEMENT PROCESSOR (CSP) CRACKS THE ACCESS CARD, 
CALLS THE EXCHANGE PROCESSOR (EXP) TO VERIFY PERMISSIONS 
TO ACCESS MASTERFILE. 

6. CSP CRACKS THE ASSIGN CARD, CALLS EXP TO OPEN TEMP, AND 
CHANGE THE BUFFER SIZE TO 12 INSTEAD OF 4 BLOCKS. 



18.2 



7. CSP CRACKS THE COPYD CARD, CALLS EXP TO LOAD PROGRAM 
COPYD FROM THE SYSTEM DIRECTORY. 

8. COPYD EXECUTES, I/O BOUND, STREAMING DATA FROM TEMP TO 
COPY. 

9. JOB SCHEDULER RECOGNIZES THAT JOB' EXAMPLE' IS STREAMING 
AND CONNECTS EXAMPLE TO THE CPU WHENEVER A BLOCK IS 
AVAILABLE IN THE INPUT CIRCULAR BUFFER. 

10. CSP CRACKS THE DISPOSE STATEMENT, CALLS EXP. 

11. EXP WRITES AN ENTRY FOR BACKUP IN THE SDT OUTPUT QUEUE. 

12. SCP STAGES BACKUP TO MAINFRAME A. 

13. DEPENDING ON MAINFRAME A, SCP DELETES ENTRIES FOR BACKUP 
IN THE SDT AND DSC. 

14. CSP CRACKS EXIT STATEMENT, CALLS EXP TO TERMINATE THE 
JOB. 

15. EXP SEARCHES FOR $OUT, COPIES SLOG TO $OUT (EXTENDING 
$OUT), CHANGES $OUT's DATASET NAME TO JOBNAME. 

16. JOB TERMINATION CHANGES ENTRIES IN THE DSC AND SDT 
OUTPUT QUEUE FOR DATASET EXAMPLE. 

17. SCP STAGES EXAMPLE TO MAINFRAME A, etc. 

18. JOB TERMINATION RELEASES ALL LOCAL DATASETS, DELETES 
$CS, AND TERMINATES JOB. 



18.3 



SYSTEM INTERACTION 



JOB ENTRY 



1. THE STATION CALL PROCESSOR (SCP) TASK EXAMINES A DATASET 
HEADER MESSAGE AND DETERMINES A JOB DATASET IS ENTERING 
THE SYSTEM. 

SCP MOVES THE SEGMENT BUFFER TO THE DISK BUFFER EACH TIME 
THE SEGMENT BUFFER BECOMES FULL FROM INPUT OF THE SUBSEGMENTS, 

SCP REQUESTS THE JOB DATASET DISK BUFFER BE WRITTEN TO DISK 
BY THE DISK QUEUE MANAGER (DQM) TASK. 

2. THE DISK QUEUE MANAGER (DQM) TASK ALLOCATES DISK SPACE FOR 
THE JOB DATASET ON THE INITIAL CALL, AND HAS THE DISK BUFFER 
WRITTEN TO DISK VIA THE DISK DRIVER. 

3. UPON REQUEST FROM THE STATION CALL PROCESSOR (SCP) TASK, 
THE JOB CLASS MANAGER (JCM) TASK DETERMINES WHICH JOB 
CLASS QUEUE ON THE SYSTEM DATASET TABLE (SDT) THE JOB SHOULD 
BE ENTERED IN. 

H. UPON REQUEST FROM THE STATION CALL PROCESSOR (SCP) TASK, 
THE PERMANENT DATASET MANAGER (PDM) TASK CREATES A PERMANENT 
DATASET STRUCTURE FOR THE JOB AND SETS THE DISPOSITION CODE 
(DC) EQUAL TO ASCII CHARACTERS IN. 

5. THE JOB SCHEDULER (JSH) TASK SELECTS THE HIGHEST PRIORITY 
JOB FROM THE INPUT QUEUE WHOSE JOB CLASS HAS A JOB EXECUTION 
TABLE (JXT) ENTRY AVAILABLE. 

JSH CONSTRUCTS THE JOBS JXT ENTRY AND CHANGES THE SYSTEM 
DATASET TABLE (SDT) INPUT QUEUE ENTRY TO EXECUTE QUEUE AND 
SETS THE JOB STATE TO THE QUEUED (Q) STATE IN THE JXT, 
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INITIAL JOB PREPARATION 



1, THE JOB SCHEDULER (JSH) TASK SELECTS A JOB FROM THE JOB 
EXECUTING TABLE (JXT) THAT HAS BEEN GIVEN ITS INITIAL 
MEMORY ALLOCATION. 

2, THE JOB SCHEDULER (JSH) ZEROES OUT THE JOB TABLE AREA (JTA) 
AND JOB COMMUNICATION BLOCK (JCB) OF THE JOB. 

3, THE JOB SCHEDULER (JSH) INITIALIZES THE JOB COMMUNICATION 
BLOCK (JCB) POINTERS SUCH AS HLM, FL, DSP, ETC. AND SAVES 
THE POINTER TO THE JCB IN THE JOB TABLE AREA (JTA). 

H. THE JOB SCHEDULER CREATES DATASET NAME TABLE (DNT) ENTRIES 
FOR $CS, $LOG, $IN, AND $OUT IN THE USERS JOB TABLE AREA 
(JTA) . 

5. THE JOB SCHEDULER INITIALIZES THE JOBS ROLLFILE DATASET 
NAME TABLE (DNT) ENTRY AT THE END OF THE JOB EXECUTION 
TABLE (JXT) ENTRY. 

6. THE JOB SCHEDULER INITIALIZES THE ROLL JOB INDEX (RJI) TABLE 
ENTRY FOR THE JOB FOR POSSIBLE RECOVERY. 

7. THE JOB SCHEDULER (JSH) SETS THE JOBS STATE TO WAITING (W) 
IN THE JXT THUS ALLOWING THE JOB TO CONTEND FOR THE CPU 
ALONG WITH OTHER ACTIVE JOBS IN THE JXT. 
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JOB ROLLOUT 



1. THE JOB SCHEDULER (JSH) TASK DETERMINES A NEED BY A JOB 
FOR USER MEMORY AND CREATES A REQUEST TO HAVE ANOTHER JOB 
IN MEMORY ROLLED-OUT. 

JSH SEARCHES THE JOB EXECUTION TABLE (JXT) FOR A CANDIDATE 
FOR JOB ROLL-OUT. 

JSH AFTER LOCATING A CANDIDATE MAY HAVE TO COMPACT MEMORY 
TO OBTAIN A LARGE ENOUGH FREE SEGMENT OF MEMORY. 

JSH SETS THE PROPER JOB STATES OF THE WAITING JOB AND 
THE JOB ABOUT TO BE ROLLED-OUT. 

2. THE DISK QUEUE MANAGER (DQM) TASK ALLOCATES DISK SPACE IF 
NEEDED, AND HAS THE MEMORY RESIDENT JOB AREA WRITTEN TO 
DISK VIA THE DISK DRIVER. 

3. THE JOB SCHEDULER (JSH) TASK UPDATES THE MEMORY SEGMENT 
TABLE (MST). 

4. THE JOB SCHEDULER (JSH) TASK LIFTS THE SUSPENSION ON THE 
JOB WAITING FOR MEMORY LIBERATION. 
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ACCESS A PERMANENT DATASET 



1. A JOB MAKES A REQUEST FOR PERMISSION TO USE A PERMANENT 
DATASET. 

2. THE EXCHANGE PACKAGE PROCESSOR (EXP) TASK EXAMINES THE 
REQUEST FOR VALID PARAMETERS AND ISSUES A REQUEST TO THE 
PERMANENT DATASET MANAGER (PDM) TASK FOR ACCESS AND THE 
JOB SCHEDULER (JSH) TASK FOR JOB SUSPENSION. 

3. THE PERMANENT DATASET MANAGER (PDM) TASK VALIDATES ACCESS 
TO THE SELECTED DATASET FOR THE USER JOB. 

PDM MANAGES THE NECESSARY SYSTEM TABLES SO THAT THE USER 
HAS THE DESIRED PERMISSIONS GRANTED. 

PDM CREATES A PERMANENT DATASET TABLE (PDS) ENTRY FOR THE 
ACTIVE DATASET. 

PDM CREATES A DATASET NAME TABLE (DNT) ENTRY FOR THE USER 
AND INSURES THE DATASET ALLOCATION TABLE (DAT) FOR THE 
DATASET IS MADE RESIDENT IN THE REQUESTING JOB AREA THUS 
MAKING THE DATASET LOCAL FOR THAT JOB. 

4. THE JOB SCHEDULER (JSH) TASK SETS THE JOBS STATUS BIT TO 
SUSPK (K) THUS DISALLOWING THE JOB FROM ROLL-OUT AND MEMORY 
MOVEMENT UNTIL THE JOBS DATASET ALLOCATION TABLE (DAT) 

ENTRY IS READ INTO THE USER AREA FROM THE DISK DATASET CATALOG 
(DSC) , 

JSH RESETS THE JOBS STATUS TO THE WAIT (W) STATE FOLLOWING 
COMPLETION OF GENERATION OF THE LOCAL DATASET BY THE PERMA- 
NENT DATASET MANAGER (PDM) TASK. 
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DATASET ACQUISITION 

1. A JOB MAKES A REQUEST TO ACQUIRE A PERMANENT DATASET. 

2. THE EXCHANGE PACKAGE PROCESSOR (EXP) TASK EXAMINES THE 
REQUEST FOR VALID PARAMETERS AND ISSUES A REQUEST TO THE 
PERMANENT DATASET MANAGER (PDM) TASK TO SEARCH FOR AN 
EXISTANT PERMANENT DATASET. 

IF THE DATASET ALREADY EXISTS IN THE SYSTEM, THE FLOW FOLLOWS 
ACCESS PROCESSING. 

IF THE DATASET DOES NOT EXIST WITHIN THE SYSTEM EXP ISSUES 
A REQUEST TO THE JOB SCHEDULER (JSH) TASK TO SUSPEND THE JOB 
AND EXP ENQUEUES THE DATASET NAME AND PLACES IT ON THE REQUEST 
QUEUE IN THE SYSTEM DATASET TABLE (SDT) . 

3. THE PERMANENT DATASET MANAGER (PDM) TASK SEARCHES THE DATASET 
CATALOG (DSC) FOR AN EXISTANT DATASET AND IF SO TO VERIFY 
THE PERMISSION WORDS. 

PDM MONITORS NECESSARY TABLES AND USER AREAS ENABLING THE 
DATASET TO BECOME LOCAL TO THE JOB THAT ISSUED THE ACQUIRE 
AS IN THE ACCESS FLOW. 

4. IF THE JOB SCHEDULER (JSH) TASK WAS REQUESTED IT SUSPENDS 
THE JOB AWAITING THE DATASET TRANSFER FROM THE FRONT-END, 

5. IF THE DATASET IS NOT CRAY RESIDENT THE STATION CALL PROCESSOR 
(SCP) TASK SELECTS THE REQUEST ENTRY FROM THE SYSTEM QUEUE 
AND COMMUNICATES WITH THE FRONT-END VIA THE FRONT-END DRIVER 
TO RETRIEVE THE NON-RESIDENT DATASET. 

SCP THEN COMMUNICATES WITH THE JOB SCHEDULER (JSH), THE 
PERMANENT DATASET MANAGER (PDM) AND THE DISK QUEUE MANAGER 
(DQM) TO INSURE PROPER SAVING OF THE DATASET AND JOB ADVANCE- 
MENT. 
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LOCAL I/O 



1. A JOB ISSUES A WRITE REQUEST THROUGH A SYSTEM MACRO CAUSING 
PHYSICAL I/O. 

2. THE EXCHANGE PACKAGE PROCESSOR (EXP TASK EXAMINES THE REQUEST 
FOR VALID PARAMETERS AND FORWARDS THE REQUEST FOR I/O. 

3. THE TASK I/O (TIO) ROUTINES TRANSFER DATA, INSERTING RCW's 
WHERE NEEDED, FROM THE JOB DATA AREA TO THE JOB DISK BUFFERS 
ON A WRITE. 

TIO DETERMINES THE DISK BUFFERS ARE GREATER THAN HALF FULL 
AND PERFORMS CIRCULAR I/O (CIO). 

CIRCULAR I/O (CIO) ISSUES A WRITE REQUEST OF THE DISK QUEUE 
MANAGER (DQM) TASK AND HAS THE JOB SUSPENDED, STATE I, BY 
THE JOB SCHEDULER (JSH) . 

H. THE DISK QUEUE MANAGER (DQM) TASK ALLOCATES DISK ON A WRITE 
IF NEEDED, AND PERFORMS THE I/O VIA THE DISK DRIVER. 
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JOB .MEMORY REQUEST 



1. A JOB MAKES A REQUEST TO ALLOCATE/DEALLOCATE MEMORY THROUGH 
AN RFL CONTROL STATEMENT. 

2. THE EXCHANGE PACKAGE PROCESSOR (EXP) EXAMINES THE USERS JOB 
COMMUNICATION BLOCK (JCB) FOR VALID PARAMETERS SUCH AS HLM, 
FL, ETC. 

EXP REQUESTS THE JOB SCHEDULER (JSH) TASK FOR THE ACTUAL 
ALLOCATE/DEALLOCATE OF MEMORY. 

3. THE JOB SCHEDULER (JSH) TASK UPON A DEALLOCATE REQUEST MUST 
UPDATE USER FIELDS SUCH AS LA, HLM, DSP POINTERS, ETC. 

JSH RETURNS THE RELEASED MEMORY TO THE SYSTEM BY UPDATING THE 
MEMORY SEGMENT TABLE (MST) AND FILLING THE RETURNED MEMORY 
WITH THE CONTENTS OF IaERASE SHIFTED LEFT 24 BITS. 

4. THE JOB SCHEDULER (JSH) TASK UPON AN ALLOCATE REQUEST MUST 
SEARCH THE MEMORY SEGMENT TABLE (MST) FOR FREE MEMORY. 

5. IF FREE MEMORY IS FOUND ADJACENT TO THE USER JOB THE MEMORY 
MAY BE GIVEN TO THE USER BY UPDATING VARIOUS USER FIELDS SUCH 
AS LA, HLM, ETC. AND UPDATING THE MEMORY SEGMENT TABLE (MST). 

6. IF THE JOB SCHEDULER (JSH) TASK IN ITS SEARCH OF THE MEMORY 
SEGMENT TABLE (MST) CANNOT FIND MEMORY ADJACENT TO THE USER 
JOB, MEMORY COMPACTION OR ROLL-OUT MAY HAVE TO BE USED. 

IF SUCH IS THE CASE THE REQUESTING JOB IS SET TO THE WAITING 
(W) STATE AND THE REQUESTING JOB ITSELF BECOMES SUBJECT TO 
ROLL-OUT, 
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JOB TERMINATION 

1. A JOB TERMINATES WITH AN EXIT CONTROL STATEMENT INTERPRETED BY 
THE CONTROL STATEMENT PROCESSOR (CSP). 

2. CSP POSTS TERMINATION MESSAGES TO THE LOGFILES VIA THE MESSAGE 
(MSG) TASK. 

3. THE EXCHANGE PACKAGE PROCESSOR (EXP) TASK COPIES THE JOBS 
SLOG TO $OUT, 

EXP CHANGES SLOG TO SCRATCH AND RELEASES SCRATCH DATASETS AS 
WELL AS SIN, SCS, 

4. THE PERMANENT DATASET MANAGER (PDM) CREATES A DATASET CATALOG 
ENTRY (DSC) FOR EACH JOB OUTPUT DATASET THUS MAKING THE DATASET 
PERMANENT. 

5. EXP HAS CREATED ENTRIES FOR THE JOBS OUTPUT DATASETS IN THE SDT. 

6. THE DISK QUEUE MANAGER (DQM) TASK ALLOCATES DISK FOR SOUT IF 
NEEDED, AND HAS THE BUFFER WRITTEN TO DISK VIA THE DISK DRIVER. 

7. THE JOB SCHEDULER (JSH) TASK TERMINATES THE JOB BY RELEASING 
THE EXECUTING QUEUE ENTRY IN THE JOB EXECUTION TABLE (JXT), 

JSH RELEASES THE JOBS MEMORY AND RELEASES THE JOBS DATASET 
AND UPDATES THE MEMORY SEGMENT TABLE (MST), 

8. THE STATION CALL PROCESSOR (SCP) TASK MANAGES SYSTEM MEMORY 
BUFFERS AND TRANSMITS THE JOBS OUTPUT DATASETS TO THE FRONT- 
END VIA THE FRONT-END DRIVER, 

9. UPON RECEIPT OF EACH OUTPUT DATASET BY THE FRONT-END, THE 
STATION CALL PROCESSOR (SCP) REQUESTS THE PERMANENT DATASET 
MANAGER (PDM) TO DELETE THE DATASET CATALOG (DSC) ENTRY FOR 
THE DATASET AND DQM RELEASES THE DATASETS DISK SPACE. 
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